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ABSTRACT 


V , 

■^PRC/ISC,  under  a RADC  contract,  converted  and  expanded  the 
Graphic  Line  Symbolization  System  (GLSS)  to  operate  in  the  production  en- 
vironment at  the  Defense  Mapping  Agency  Aerospace  Center  (DMAAC). 

The  system  was  converted  from  the  HXS-635  to  the  UNIVAC  1108.  Major 
enhancements  to  the  original  software  system  included  additional  point 
symbol  capabilities  and  additional  output  file  formats  for  interfacing  with 
DMAAC  plotter  systems.*.  Major  characteristics  of  GLSS  includes: 

o Hardware  - UNlVAC  1108 

o Software  - written  in  COBOL  and  FORTRAN  V compiler  languages 
and  operates  under  EXEC  8. 

o Modularity  - the  software  configuration  is  highly  segmented  into 
areas  of  job  setup,  file  input,  job  monitoring,  symbol  application 
control,  symbol  specification  correlation,  symbol  application 
processes,  line  smoothing,  job  reporting,  and  file  output. 

o Resources  - requires  approximately  40K  words  of  memory  for 
loading  and  execution  of  all  software;  program  overlaying  or 
selective  loading  of  required  software  can  significantly  reduce 
core  storage. 

GLSS  provides  a wide  range  of  data  processing  capabilities  related 
to  cartographic  symbology.  Various  capabilities,  options  and  processing 
techniques  of  GLSS  includes  the  following: 

Dashing 

o Variable  sizes  of  dashes  and  spaces 

o Feature  must  start  and  end  with  dash  at  least  | length  of  dash 
size 

o Dash  must  carry  through  points  flagged  as  special  points 

Casing 

o Variable  size  cases 

o Line  quality  of  case  should  equal  or  exceed  quality  of  original 
line  center 
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Ticking 
o Full  tick 


o Alternating  half  tick 

o Half  tick  (left  or  right  code) 

o Double  tick 

o Feature  will  not  end  with  a tick 

o Ticks  will  not  be  applied  at  special  points 

Line  Cleaning 

o Cleaning  angles  (angle  bisecting) 

o Minimum  resolution  maintenance 

o Line  "back-up"  edit 

o Combinations  of  the  above  options 

o Data  culling  based  on  line  inclination  factors 

Symbol  Specifications 

o Specification  file  building  and  update 
o Selection  of  specification  file  (multiple  product  files) 
o Override  to  standard  specifications  (up  to  10  overrides) 

Input/Output  Options 
o LIS  Table  File  (Input) 

o GERBER  2032  Plotter  (Output) 

o Xynetics  Plotter  (Output) 

o MMS-32/Raster  Plotter  Interface  (Output) 

Point  Symbology 
o Circle 

o Dot 

o Arrow 

o Cross 

o Half -Arrow 

o Square 

o Triangle 

o Pyramid 

o Arc/Chord  (Mine  Symbol) 
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Multiple  Symbols 

Various  combinations  of  point  and  lineal  symbology  can  be  generated. 

o Dash/Case 
o Dash/Cross 
o Dash/Dot 
o Dash/Tick 
o Dash  /Circle 
o Line /Arrow 
o Line  Center/ Case 
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SECTION  I 
INTRODUCTION 


A. 


Purpose 


The  purpose  of  Volume  II  of  the  Final  Technical  Report  is  to  describe 
the  GLSS  software  in  terms  of  the  operating  environment  and  definition  of 
all  software  routines. 

B.  Organization 

Section  II  of  this  volume  describes  the  software  environment  of  GLSS, 
including  general  processing  cycle,  software  configuration  and  summary, 
common  data  areas,  and  input  and  output  file  descriptions  (see  Appendix). 

Section  in  presents  individual  program  descriptions.  Each  program 
is  described  according  to  the  following  items: 

o Functional  Description 
o Computer  Definition 

o Program  Description 

o Program  Constants  and  Variables 
o Error  Conditions 


SECTION  II 

SYSTEM  OPERATING  ENVIRONMENT 


A.  System  Characteristics 

1.  Hardware 

GLSS  operates  on  the  UNIVAC-1108  computer  system  and  requires 
the  following  system  resources  and  peripheral  equipment:  card  reader  or 
TTY  for  submission  of  job  control/directives  data;  line  printer  for  job  re- 
porting; two  9 -track  tape  units  for  input  and  output  of  cartographic  feature 
files  and  approximately  40K  words  of  memory  for  job  execution. 

2.  System  Software 

GLSS  operates  under  the  EXEC  8 operating  environment  and 
utilizes  general  system  services  of  EXEC  8.  Output  of  GERBER  and 
Xynetics  formatted  files  employs  standard  plotter  subroutines  which  are 
resident  on  the  UNIVAC  1108. 

3.  GLSS  Software 

GLSS  consists  of  43  programs  and  is  programmed  in  ASCII  COBOL 
and  FORTRAN  V.  COBOL  is  employed  for  system  control,  job  setup,  and 
job  reporting.  FORTRAN  V is  used  for  all  symbol  application  programs. 

B.  Processing  Cycle 

The  general  processing  cycle  for  a GLSS  job  execution  is  presented  in 
Figure  II- 1. 


Read  control 
cards  & set-up  i 
job  parameters  I 


I 


I 

Output  process 
new  symbolized 
featur 


Figure  II-l  GLSS  Processing  Cycle 
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C.  Software  Modules 

A summary  of  GLSS  program,  programming  languages,  and 
functional  purposes  are  presented  below.  Configuration  of  the  software 
is  illustrated  in  Figure  II-2. 


Program 

Language 

Purpose 

ABSPNT 

FORTRAN  V 

Checks  current  point  against 
absolute  point  table. 

ARCORD 

FORTRAN  V 

Generates  an  arc  and  a chord 
for  a more  symbol. 

ARROW 

FORTRAN  V 

Computes  two  or  three  point 
which  define  an  arrow  or 
half-arrow. 

BAKOVE 

FORTRAN  V 

Determine  if  two  line  segments 
intercept  & cleans  the  intersection. 

BACKUP 

FORTRAN  V 

Determines  if  the  third  of 
three  adjacent  points  reverses 
direction  & alters  the  data 
list  accordingly. 

CASER 

FORTRAN  V 

Controls  & performs  the 
case  processing. 

CASEST 

FORTRAN  V 

Computes  two  points 
perpendicular  to  a line  segment 
and  away  from  one  of  its 
end  points. 

CASEIT 

FORTRAN  V 

Computes  two  points  on  a 
perpendicular  bisect  away 
from  a line  segment. 

CAS POT 

FORTRAN  V 

Computes  two  pairs  of  points 
which  are  parallel  and 
equidistant  from  a line  segment. 

CKDESP 

FORTRAN  V 

Compares  file  feature  header 
against  specification  headers. 

CIRCLE 

FORTRAN  V 
H-3 

Generates  a circle  of  a gixfen 
size  about  a center  point. 
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CROSS 

DASHER 

DOTTER 

FETCOR 


FINDPT 


FORHED 
HEADS UM 


IPUT  (LIS  INPUT) 

JCRSE 

LINUP 

MONITR 

NOCORR 

OPUT 


FORTRAN  V Computes  & compares  the 
distance  between  two  points 
with  minimum  distance. 


FORTRAN  V Generates  four  points  defining 

a cross  about  a center  point. 

FORTRAN  V Generates  dashed  line 

symbology. 

FORTRAN  V Generates  a dot  at  a point. 

FORTRAN  V Retrieves  specification  files 

and  examine  headers  for  a 
match. 

FORTRAN  V Compute  a point  between  two 

points  at  a given  distance  from 
the  first  point. 

FORTRAN  V Formats  LIS  headers  for 

GLSS  processing. 

FORTRAN  V Reads  an  LIS  Table  File  and 
prints  a summary  of  headers 
and  tally  of  data  points. 

FORTRAN  V Reads  & formats  LIS  Table 
file. 

FORTRAN  V Formats  a JCRS  or  JCRE  for 
MMS -32  file  formating. 

ASCn  COBOL  Formats  &:  prints  the  processing 
summary  reports. 

ASCII  COBOL  Control  the  sequencing  of 

processes  for  the  symbolization 
execution. 

FORTRAN  V Prints  headers  of  those  features 
which  no  specifications  could 
be  located. 

FORTRAN  V Output  processes  feature  data 
to  a MMS -32  formated  file. 
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Program 


OPUT  (DUMMY) 

OPUT  (GERBER) 

OPUT  (XYNETICS) 

PAK298 

POINTS 

PYRMID 

REDREC 

SETUP 

SIMBOL 

SLOPE 

SMOOTH 

SPACE 

SPEC 


Language 
FORTRAN  V 

FORTRAN  V 

FORTRAN  V 

FORTRAN  V 
FORTRAN  V 

FORTRAN  V 
FORTRAN  V 
ASCII  COBOL 
FORTRAN  V 
FORTRAN  V 
FORTRAN  V 

FORTRAN  V 
FORTRAN  V 

FORTRAN  V 


Purpose 

Prints  a formated  dump  of 
all  data  points  passed  to  the 
output  phase. 

Output  processes  symbolized 
feature  data  to  a GERBER  2032 
formated  file. 

Output  processes  symbolized 
feature  data  to  a Xynetics 
formated  file. 

Packs  MMS -32  word  records 
into  a 298  word  buffer. 

Locates  two  points  along  the 
data  list  which  are  a specified 
distance  from  the  current  point. 

Computes  three  points  defining 
a pyramid. 

Read  a LIS  table  coordinate 
file. 

Reads  input  data  cards  Si  sets 
up  job  processing  directives. 

Controls  all  symbol  application 
processing. 

Computes  the  approximate  slope 
of  the  line  at  a given  point. 

Performs  various  level  of 
data  reduction,  line  clearing, 
and  smoothing  processes. 

Walks  down  a data  list  a 
specified  distance. 

Read  symbol  specification 
data  cards  St  builds /updates 
disc  resident  specification 
files. 

Computes  four  points  defining 
a square  centered  on  a center 
point. 


SQUARE 


Program 

Language 

Purpose 

TICKER 

FORTRAN  V 

Generates  full  and  half  ticks 
along  a data  list. 

TRNBLE 

FORTRAN  V 

Computes  three  points  which 
defines  an  equilateral  triangle. 

UNVHIS 

FORTRAN  V 

Converts  floating  point  numbers 
from  UNIVAC  1108  to  U1S  6000/600 
formats. 

VECTAB 

FORTRAN  V 

Converts  LIS  vector  data  to 
absolute  coordinate  values. 

D.  File  Formats 

The  input  file  to  GLSS  is  a standard  LIS  Table  File  presented  in 
Appendix  I.  Internal  processing  of  feature  data  and  symbols  is  performed 
via  eight  common  data  areas  whose  COBOL  and  FORTRAN  formats  are 
defined  in  Appendix  II.  References  to  common  areas  in  the  following 
program  documentation  frequently  refer  to  common  areas  --  Cl,  C2,  ... 

Cl  Feature  Descriptor  Data 

C2  Feature  Line  Center  Data 

C3  Symbol  Spec  Directive 

C4  Symbol  Spec  Directive  Override 

C5  Status  Indicator,  Flags,  and  Pointers 

C6  Parameters  and  Variables 

C7  Process  Tally  Summary  Report 

C8  LIS 

Output  files  generated  by  GLSS  include  GERGER,  Xynetics,  and  MMS-32. 
GERBER  and  Xynetics  Plotter  files  are  standard  formats  produced  by  calls 
to  DMAAC  subroutines.  The  MMS-32  format  is  defined  in  Appendix  IH. 
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HI.  PROGRAM  DESCRIPTION 


k. 


A.  MONITR 

1 .  Functional  Description 


MONITR  controls  the  sequence  of  operations  performed 
during  a symbolization  job  run.  Job  operations  controUed  by  MONITR 
include  job  set-up,  file  input  and  output  processing,  correlation  of 
symbol  specifications  to  features,  data  smoothing,  symbol  application, 
and  job  summarizing  and  wrap-up. 

2.  Computer  Definition 

a.  Core  Memory  Used 
164  octal  words. 

b.  Peripheral  Equipment 
None 

3.  Program  Description 

a.  Calling  Routines 
None 

b.  Subroutines  Used 

SETUP 

IPUT 

FETCOR 

SMOOTH 

SIMBOL, 

OPUT 

LINUP 

c.  Input 

None 


in-i 


d. 


Output 


None 

e.  Processing  Methodology 

MONITR  initiates  the  job  by  calling  SETUP  for 
reading  of  control  cards  and  setting  of  job  parameter  flags  and  indicators. 
Input  is  then  called  to  process  records  from  the  input  file.  If  a file 
start,  registration,  or  file  end  record  was  input,  the  OPUT  Module 
is  called  for  outputting  the  record.  If  a new  feature  is  input,  FETCOR 
is  then  called  to  determine  the  type  of  symbology  to  be  applied.  If  the 
user  requested  the  file  to  be  smoothed  or  if  the  feature  is  to  be  symbo- 
lized (other  than  line  center),  the  SMOOTH  Routine  is  called.  The 
Symbol  Controller  (SIMBOL)  is  then  called  for  symbolization  processing. 
On  return  to  MONITR,  a symbol  segment  will  be  output  processed,  point 
tallies  updated  for  line  center  features,  and  control  returned  to  SIMBOL 
(CALLBACK  Flag  set)  or  a new  feature  segment  will  be  input  processed. 

A processing  summary  report  will  be  generated  on  the  line  printer  when 
the  job  is  completed.  Refer  to  Figure  III-l  for  a process  flow  diagram 
of  MONITR. 

f.  Calling  Sequence 
Not  applicable. 

g.  Major  Algorithms 
None 

4.  Program  Constants  and  Variables 

Program  variables  interrogated  by  MONITR  include: 

NUM -SUM -PIECES  (=1  and  SYM-TYPE  = 1 call  OPUT) 
SYM-TYPE  ( =1  and  NUM-SYM-PIECES  =1  call  OPUT) 

STORE -SPEC -HEAD  ( =1  call  OPUT) 
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SYM-READY-OUT  ( * 0 call  OPUT) 
SYMBOL-CALLBACK  ( * 0 call  SYMBOL) 
ABORT-JOB-ID  ( ^ 0 call  LIN  UP  and  stop  run) 
JOB-THRU-FLAG  ( ^ 0 call  LTNTTP  and  stop  run) 
SMOOTH-TYPE  ( b 0 call  SMOOTH) 
NEW-FEAT  ( * 0 call  FETCOR) 

5.  Error  Conditions 


ABORT -JOB -ID  i 


0 the  run  is  aborted. 


I 

y 


HI-3 


Figure  IH-1  MONITR  Process  Flow  (Page  2 of  2) 


B.  SETUP 
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1 . Functional  Description 

As  a COBOL  routine,  SETUP  reads  the  input  cards 
(supplied  by  the  user)  which  are  required  for  the  GLSS  job  run.  As 
the  input  cards  are  read  sequentially,  SETUP  interrupts  the  input,  as 
necessary,  and  places  the  needed  information  in  COMMON  to  be  used  by 
the  other  routines. 

2.  Computer  Definition 

a.  Core  Memory  Used 
2 562  octal  words 

b.  Peripheral  Equipment 
Card  reader. 

3.  Program  Description 

a.  Calling  Routines 
MONITR 

b.  Subroutines  Used 
None 

c.  Input 

Input  for  SETUP  are  received  through  cards  in  the 
job  stream  as  supplied  by  the  user. 

d.  Output 

Outputs  are  passed  through  the  common  area  C4 
(symbol  spec  directives  overrides),  C5  (status  indicators,  flags  and 
pointers),  and  C6  (parameters  and  variables). 

I 
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Processing  Methodology 

As  a COBOL  routine,  SETUP,  upon  call  from 


r 


'I 
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MONITR,  will  input  the  GLSS  job  control  cards  supplied  by  the  user. 

SETUP  will  proceed  in  the  following  way  by  reading  input  cards  sequentially 
and  checking  card  format.  First,  card  one  will  be  read,  interpreted,  and 
placed  in  common  area  C6  as  the  input  file  format  (IN -FILE).  Secondly,, 
card  two  will  be  read,  interpreted,  and  also  placed  in  common  area  C6 
as  the  output  format  file  (OUT -FILE).  Thirdly,  card  three  is  then  read, 
and  determination  is  made  as  to  whether  or  not  the  GLSS  job  is  a special 
run  to  write  a special  MMS  file  which  contains  the  symbol  directives  in 
the  header  recorder.  The  flag  STORE-SPEC-HEAD  is  correspondingly 
set  ( 0 or  1).  If  SETUF  determines  that  the  GLSS  job  is  to  be  a special 
run,  as  described  above,  SETUF  will  ,ocr.  for  input  card  nine,  as  de- 
scribed below,  as  the  next  input  card.  The  fourth  input  card  will  be 
read  next  to  determine  which  smooth  option  will  be  used  in  the  GLSS  run. 
The  option  which  is  determined  is  stored  in  SMOOTH-TYPE.  Proceeding 
with  a standard  GLSS  job,  the  fifth,  sixth,  and  seventh  input  cards 
(minimum  distance,  maximum  distance,  and  slope  distance  values) 
will  sequentially  be  read,  interpreted,  ana  correspondingly  be  placed 
into  common  (MIN-DIST,  MAX-DIST,  and  SLOPE -DIST).  Next,  input 
card  eight  is  read  to  determine  whether  or  not  the  input  file  contains 
the  symbol  directives  in  the  header  (YES  or  NO).  The  flag  READ-SPEC- 
HEAD  is  set  to  show  the  status  of  the  header  (0  if  NO,  and  1 if  YES). 
Following  the  eighth  input  card,  or  third  input  card  (as  described  above), 
the  nineth  input  card  is  read.  This  input  card  informs  SETUP  of  the 
existence  of  following  override  input  cards  (YES  or  NO).  If  NO,  SETUP 
returns  control  to  the  calling  routine;  if  YES,  SETUP  proceeds  to  input 
the  override  cards  and  places  the  information  obtained  from  the  input 
cards  into  common  area  C4  (SYMBOL-SPEC -DIR -OVERRIDE). 

After  reading  all  the  override  input  cards,  SETUP  returns  control  to 
the  calling  routine.  Refer  to  the  User's  Manual,  and  Symbol  Specification 
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Build/  Update  subroutine  SPEC  for  more  detailed  information.  See 
Figure  III-2  for  processing  flow  diagram  of  SETUP. 

f.  Calling  Sequence 
Call  SETUP 

g.  Major  Algorithms 
None 

4.  Program  Constants  and  Variables 


ABORT -JOB-ID 

flag  to  abort  the  GLSS  iob  run 
=0  : do  not  abort 
=1  : abort 

CARD-NO 

- 

user's  input  control  card  sequence 
number 

CARD-NUMBER 

- 

index  of  user's  input  control  card 

CARD-TOTAL 

- 

user's  input  control  card  count 

END -CARD 

- 

used  to  test  the  user's  end 
input  control  cards 

IN -FILE 

- 

description  of  the  input  data  format 

INPUT -CARD 

- 

field  in  which  the  user's  control 
input  cards  are  read 

MAX-DIST 

mm 

contains  the  value  used  as  the  max- 
imum resolution  for  trace  data 

MIN-DIST 

- 

contains  the  value  used  as  the 
minimum  resolution 

NUM-OVER 

- 

counter  of  the  total  number  of 
symbol  overrides 

OUT -FILE 

- 

description  of  the  output  data  format 

READ-SPEC -HEAD  - 

status  flag  for  reading  the  symbol 
specification  from  the  data  header 
record 

SLOPE -DIST 

- 

contains  the  value  which  will  be 
used  to  approximate  the  slope 

SMOOTH -TYPE 

- 

integer  value  for  describing  the 
smooth  option  selected 

J 
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STNOl  -OVER 

array  containing  the  sheet  number 
one  code  fon  symbol  spec  overrides 

STNQ2-OVER 

- 

array  containing  the  sheet  number 
two  code  for  symbol  spec  overrides 

STORE -SPEC -HEAD 

-status  flag  for  storing  the  symbol 
specification  in  the  data  header 
recorder 

SYMBOL-CODE 

- 

integer  numerical  symbol  piece  code 

SYM-CON-NON 

array  containing  symbol  piece  con- 
formal (0)  or  nonconformal  (1) 
indicator  for  symbol  piece  spec 
overrides 

SYM-FC1 

array  containing  feature  class,  type, 
and  subtype  for  each  symbol  over- 
rides 

SYM-FC2 

' 

array  containing  feature's  first  six 
codified  descriptors  for  each  of  the 
symbol  overrides 

SYM-FC3 

' 

array  containing  feature's  last  two 
codified  descriptors  for  each  of  the 
symbol  overrides 

SYM-LW-OVER 

array  containing  the  symbol  piece 
line  weight  for  each  symbol  piece 
override 

SYM-SZ-OVER 

- 

array  containing  the  symbol  piece 
size  for  each  symbol  piece  override 

SYM-TYPE-OVER- 

array  containing  the  numerical  code 
for  symbol  type  for  each  symbol 
piece  override 

VAL 

used  to  determine  input  distance' 
values  for  minimum,  maximum, 
and  slope 

VERDEX 

index  for  symbol  spec  overrides 

5.  Error  Conditions 

o No  data  was  found  or  ID  was  not  in  column  1 (ERR-1). 

o Input  card  missing  or  input  card  out  of  sequence 
(ERR-2). 
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Input  data  card  3,  8,  or  9 is  incorrect  (ERR-3). 

o Premature  END  card  found  in  override  input  cards 
(OVERRIDE -ERR -1 ). 

o Premature  EOSYM  found  in  override  input  cards 
(OVERRIDE -ERR-2 ). 

o Number  of  override  symbol  directives  exceeds 
limit  (OVERRIDE -ERR -3). 

o Symbol  data  for  override  directive  exceeds  limit 
(OVERRIDE -ERR-4). 

o Symbol  override  data  is  in  incorrect  format 
(OVERRIDE -ERR -5). 

Errors  occurring  in  the  above  situations  will  set  the 

abort  flag. 

o No  END  data  card,  GLSS  generated  the  end  card. 
This  error  will  not  set  the  abort  flag. 
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Figure  HI-2  SETUP  Process  Flow  (Page  11  of  12) 
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C.  IPUT  (LIS) 

1 . Functional  Description 

The  primary  function  of  subroutine  IPUT  is  to  control  the 
reading  and  converting  of  a Lineal  Input  System  (LIS)  table  coordinate 
magnetic  tape.  The  reading  is  accomplished  via  subroutine  REDREC 
while  the  converting  of  the  header  data  and  table  vector  data  is  accomp- 
lished via  subroutine  FORHED  and  VECTAB,  respectively.  A secondary 
function  of  IPUT  is  to  locate  and  report  LIS  record  sequence  errors. 

2.  Computer  Definition 

a.  Core  Memory  Used 
457  octal  words 

b.  Peripheral  Equipment 
Not  applicable. 

3.  Program  Description 

a-  Calling  Routine 

MONITR 

b.  Subroutines  Used 

JCRSE 

REDREC 

FORHED 

VECTAB 

c.  Input 

Input  consists  of  common  area  LIS,  namely  buffer 
IREC  (buffer  containing  LTS  record),  mnemonics  IRTYPE  (record 
type),  IBLNUM  (block  number),  and  NUMVEC  (number  of  vectors  in 
block).  Other  input  is  found  in  common  area  C5  (status  indicators  flags 
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and  pointers)  mnemonics  IFTCNT  (feature  continuation  flag). 

d.  Output 

Output  from  subroutine  1PUT  is  found  in  common  area 
C5  mnemonic  IJBEND. 

e.  Processing  Methodology 

Processing  flow  of  subroutine  IPUT  is  depicted  in 
Figure  III-3.  Entry  is  made  via  GLSS  control  routine  MONITR. 

A computed  go  to  statement  is  executed  with  a resultant  of  one  of  the 
five  options  being  taken.  If  first  entry,  the  output  format  is  examined 
(mnemonic  LOFILE).  If  found  to  be  the  MMS-32  word  type  a start  record 
(JCRS)  is  formatted  in  buffer  IXYZ  via  subroutine  JCRSE  and  process 
control  returned  to  the  calling  routine  MONITR.  If  the  format  is  not  the 
MMS-32  word  type  or  upon  the  second  entry,  subroutine  REDREC  is 
called.  If  the  record  type  read  (mnemonic  IRTYPE)  is  not  zero  or  a 
premature  end  of  file  is  reached,  an  error  diagnostic  is  reported  with 
the  job  being  aborted.  If  the  record  type  is  zero  the  type  of  coordinate 
indicator  is  extracted  from  the  input  record  and  stored  in  mnemonic 
ITABLE.  If  ITABLE  is  not  one,  an  error  diagnostic  indicating  such  is 
reported  and  again  the  job  is  aborted.  If  the  coordinate  indicator  is  one 
(table  data),  the  next  record  is  read  from  the  input  tape  via  REDREC. 

If  this  record  is  not  a record  type  twenty,  an  error  diagnostic  is  reported 
and  the  job  aborted.  If  it  is  a record  type  twenty  the  recording  resolution 
(microns),  at  which  the  trace  data  in  the  file  was  digitized,  is  extracted 
from  buffer  IREC  and  stored  (IKSUIT).  The  next  two  record  type  twentys 
are  stripped  from  the  tape  and  the  first  header  record  (record  type 
thirty)  is  read  via  REDREC.  Subroutine  FORHED  is  called  to  extract 
and  reformat  the  input  header  data  to  the  GLSS  internal  buffer 
common  area  Cl.  The  next  record  (record  type  thirty  one)  is  read  via 
REDREC.  This  record  type  is  the  data  list  record  for  table  coordinate 
files  and  contains  incremental  vectors.  Subroutine  VECTAB  is  then 
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called  to  change  the  above  vectors  to  absolute  table  coordinate  data  and 
store  this  data  into  the  GLSS  coordinate  data  buffer  (IXYZ).  Record  type 
thirty  ones  are  processed  until  the  last  data  block  is  reached  for  that 
feature  or  the  feature  continuation  flag  is  set  by  VECTAB.  When  this 
occurs,  an  appropriate  re-entry  option  is  set  with  control  being  returned 
to  the  calling  routine  MONITR.  Upon  receiving  process  control  re-entry 
option  three  or  four  is  executed.  If  re-entry  option  three  (mnemonic 
Ml»3)  is  set  the  above  header  data  record  (record  type  thirty)  read  is 
executed  along  with  the  associated  process.  If  re-entry  option  four 
(Ml=  4)  is  set,  control  is  returned  to  subroutine  VECTAB  to  continue 
processing  tne  previous  data  block.  The  above  processes  are  repeated 
until  a record  type  ninety  (LIS  file  summary  record)  is  reached  indicating 
end  of  data.  If  the  output  format  (mnemonic  IOFILE)  is  the  MMS-32  word 
an  end  record  (JCRE)  is  formatted  in  buffer  IXYZ  via  subroutine  JCRSE 
with  process  control  being  returned  to  MONITR. 


f.  Calling  Sequence 
Call  IPUT 

g.  Major  Algorithm 
None 


4.  Program  Constants  and  Variables 

IOFILE  - type  of  format  of  output  file  BCD 
iXYZ  - buffer  containing  X,  Y,  coordinates 
IRTYPE  - input  record  type 

ITABLE  - type  of  coordinates  on  file  (1  = table  coordinates) 
IRSUIT  - recording  resolution  of  digitized  (microns) 

5»  Error  Conditions 

a.  "PREMATURE  END  OF  FILE  ON  L.I.S.  INPUT  TAPE". 

b.  "NO  L.I.S.  RECORD  TYPE  ZERO  FOUND  ON  INPUT 
TAPE". 


c.  "NOT  TABLE  COORDINATE  (VECTOR)  L.I.S.  INPUT 
TAPE". 

d.  "NO  L.I.S.  RECORD  TYPE  20  FOUND  ON  INPUT  TAPE 

e.  "NO  L.I.S.  RECORD  TYPE  90  FOUND  ON  INPUT  TAPE 
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Figure  III-3  - IPUT  Process  Flow 

(Page  1 of  5) 
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D.  Subroutine  JCRSE 

1.  Functional  Description 

The  function  of  subroutine  JCRSE  is  to  format  a JCRS  or 
JCRE  MMS  32  word  record  in  the  IXYZ  buffer.  This  routine  is  needed 
when  the  output  is  to  be  the  MMS  32  format. 

2.  Computer  Definition 

a.  Core  Memory  Used 
51  octal  words 

b.  Peripheral  Equipment 
Not  applicable 

3.  Program  Description 

a.  Calling  Routine 
IPUT  (LIS) 

b.  Subroutine  Used 
None 

c.  Input 

Input  is  derived  from  the  calling  sequence,  mnemonic 

IFOR. 

d.  Output 

Output  is  found  in  common  area  C2  buffer  IXYZ,  which 
consist  of  a MMS  32  word  JCRS  (start  record)  or  JCRE  (end  record). 

e.  Processing  Methodology 

Processing  flow  of  subroutine  JCRSE  is  shown  in 
Figure  HI-4.  Entry  is  made  via  subroutine  IPUT  with  the  first 
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thirty  two  word  of  buffer  IXYZ  being  cleared.  Mnemonic  IFOR  is 
examined  and  if  found  to  contain  a value  of  one,  a MMS  32  word  JCRS 
(start  record)  is  formed  in  buffer  IXYZ  with  control  being  returned  to 
calling  routine  IPUT.  If  IFOR  contains  a value  of  two,  a MMS  32  word 
JCRE  (end  record)  is  formed  in  IXYZ  and  again  process  control  is 
returned  to  the  calling  routine  IPUT.  This  routine  is  only  called  when 
the  output  format  is  the  MMS  32  word  record  type. 

f.  Calling  Sequence 

CALL  JCRSE  (IFOR) 

IFOR  = 1 form  JCRS  record 
IFOR  = 2 form  JCRE  record 

g.  Major  Algorithm 
N/A 

h.  Program  Constants  and  Variables 

IFOR  - mnemonic  containing  start  or  end  record 

directive. 

IXYZ  - buffer  containing  (first  thirty  two  words)  the 
JCRS  or  JCRE  record. 

5.  Error  Conditions 

None 
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Figure  IU-4  JCRSE  Process  Flow 
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Subroutine  VECTAB 


Functional  Description 


The  function  of  subroutine  VECTAB  is  to  convert  a Tjs 
vector  data  list  to  absolute  X,  Y table  coordinate  values  and  to  store 
these  values  into  the  GLSS  internal  coordinate  buffer. 

2.  Computer  Definition 


Core  Memory  Used 


513  octal  words 


Peripheral  Equipment 


Program  Description 


Calling  Routine 


IPUT  (US) 


Subroutine  Used 


c.  Input 

Input  consists  of  data  found  in  common  area  LIS, 
namely  mnemonics  IREC  (buffer  containing  record  type  30  or  31), 
UNTMS  (recording  resolution  converted  to  inches),  ISVPN  (starting 
vector  position  number)  and  NUMVEC  (number  of  vectors  in  block). 
Other  input  consists  of  mnemonic  IHEDIN  (header  number  input) 
and  ISMOTH  (smooth  option). 

d.  Output 

The  primary  output  consists  of  data  found  in  common 
area  C2,  feature  line  center  data,  namely  buffer  IXYS  which 
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contains  the  T.TS  vector  data  converted  to  absolute  X,  Y table  coordi- 
nates in  inches.  Other  output  found  in  common  C2,  is  the  number 
of  data  points  in  buffer  IXYZ  mnemonic  NUMPTS  sub-current  index 
pointer  ICURDX.  The  feature  continuation  flag  IFTCNT  is  also  used 
in  subroutine  VECTAB  to  indicate  that  buffer  IXYZ  has  reached  its 
upper  limit  and  more  data  exists  for  the  feature  in  question. 

e.  Processing  Methodology 

The  processing  flow  of  subroutine  VECTAB  is  shown  in 
Figure  HI-5.  Process  control  is  made  via  subroutine  IPUT  when 
vector  data  is  found  in  record  types  30  or  31.  Upon  first  entry  the 
incremental  values  of  the  vector  code,  array  (VEC)  are  initialized  to  the 
units  of  measure,  that  is  the  incremental  values  times  the  units  of 
measure  (inch)  mnemonic  UNTMS.  UNTMS  is  the  recording  resolution 
(microns)  times  the  microns  to  inches  conversion  value.  On  subsequent 
entries  or  after  array  VEC  has  been  initialized,  a new  feature  header 
input  check  is  made.  If  a new  header  has  been  input,  needed  flags  and 
pointers  axe  reset.  If  subroutine  VECTAB  call-back  flag  (IVECLK)  c-  d 
feature  continuation  flag  (IFTCNT)  are  not  set,  the  start  stop  limits  for 
storing  coordinates  values  are  calculated  utilizing  the  smooth  option 
input  (ISMOTH).  The  starting  coordinates  (absolute  X,  Y values)  are 
placed  in  mnemonics  XTEMP  and  YTEMP,.  respectively.  The'  index 
within  array  IREC  pointer  (mnemonic  INDX)  and  vector  index  within 
word  pointer  (IVECDX)  are  then  calculated.  The  vector  code  is  extracted 

from  buffer  IREC  (see  Figure  HI-6)  utilizing  pointer  INDX  and 
IVECDX.  This  code  is  then  placed  in  mnemonic  IVDX  and  is  used  as 
a pointer  into  array  VEC.  The  delta  coordinates  then  are  summed 
to  XTEMP  and  YTEMP  and  stored  into  output  buffer  IXYZ.  The  number 
of  points  input  (NPTSIN)  and  the  number  of  points  placed  in  the  output 
buffer  (NUMPTS)  are  incremented.  If  the  vector  processed  count 
(ICTVEC)  is  equal  to  the  number  of  vectors  input  (NUMVEC)  the 
VECTAB  call-back  flag  (IVECLK)  is  set  and  control  returned  to  the 
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calling  routine  1PUT.  If  the  output  buffer's  index  reaches  its  upper 
limit  (i.e.,  buffer  is  full)  the  feature  continuation  flag  (IFTCNT)  is  set 
and  processing  control  returned  to  the  calling  routine  IPUT. 

Upon  subsequent  entries,  when  the  VECTA3  call-back 
flag  (IVECLK)  is  found  set,  process  control  is  passed  to  the  above 
mentioned  index  within  array  (INDX)  and  index  within  word  (IVECDX) 
calculations  with  the  aforementioned  processing  being  continued.  If 
IVECLiK  is  not  set  and  the  feature  continuation  flag  (IFTCNT)  is  set, 
new  start  stop  limits  for  storing  coordinate  values  are  calculated,  again 
using  the  smooth  option  input  (ISMOTH).  Certain  flags  and  pointers 
are  then  initialized  and  process  control  is  passed  to  the  above  mentioned 
vector  code  extraction  processing  area. 


None 


4.  Program  Constants  and  Variables 


IREC  - array  containing  record  type  30  or  31. 

UNTMS  - units  of  measure  (recording  resolution  changed 

to  inches). 

ISVPN  - starting  vector  position  number. 

NUMVZC  - number  of  vector  within  IREC. 

IHEDIN  - number  of  headers  input. 

ISMOTH  - smooth  data  option. 

IXYZ  - buffer  containing  output  coordinates. 

NUMPTS  (ICURDX)  - number  of  points  in  above  buffer. 
ICURDX  - current  buffer  pointer  (1-5) 

IFTCNT  - feature  continuation  flag. 

VEC  - array  containing  L.  I.  S.  delta  X,  Y increments. 
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IVECLK  - subroutine  VECTAB  call-back  flag. 
XTEMP  - summed  X temporary  location. 
XTEMP  - summed  Y temporary  location. 
INDX.  - index  pointer  within  buffer  IREC. 
IVECDX  - vector  within  word  index. 

IVDX  - L.I.S.  four  bit  vector  (right  justifiei). 
NPTSIN  - number  of  points  input. 

ICTVEC  - vector  processed  count. 

5.  Error  Conditions 
None 
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F.  FORHED 

i 

1 . Functional  Description 

The  primary  function  of  subroutine  FORHED  is  to  extract 
from  a Lineal  Input  System's  header  record  feature  data  and  to  reformat 
this  data  for  the  Graphic  Line  Symbolization  System's  internal  buffer. 

2.  Computer  Definition 

a.  Core  Memory  Used 
753  octal  words 

b.  Peripheral  Equipment 
N/A 

3.  Program  Description 

a.  Calling  Routine 
IPUT 

b.  Subroutine  Used 
N/A 

c.  Input 

Input  consists  of  a L.I. S.  header  record,  record  type 
30,  located  in  labeled  common  area  LIS  mnemonic  IREC  (buffer  con- 
taining input  record). 

d.  Output 

Output  from  subroutine  FORHED  is  found  in  labeled 
common  areas  Cl  and  C2.  The  output  consists  of  feature  class,  type 
and  subtype  (mnemonic  ICLSS1),  eight  codified  descriptors  (mnemonics 
ICLSS2  and  ICLSS3),  bounding  rectangle  information  (mnemonics  IXMEM, 
IYMIN,  IXMAX,  IYMAY ),  first,  last  coordinate  point  (mnemonics 
IXFST,  IYFST,  IXLST,  IYLST)  and  special  numerics  (mnemonic  IHEAD(l)). 


L 
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Other  output  consists  of  the  first  coordinate  point,  converted  to  inches, 
store  in  buffer  IXYZ.  ! 

e.  Processing  Methodology 

Processing  flow  of  subroutine  FORHED  is  depicted  in 
Figure  HI-7.  Entry  is  made  via  subroutine  IPUT  with  GLSS  system 
flags  and  pointers  being  initialized.  The  current  index  pointer  (mnemonic 
ICURDX)  is  initialized  with  the  number  of  header  record  and  data  record 
input  being  incremented  (mnemonic  IHEDIN  and  IDT  IN  respectively). 

The  feature  class,  type,  subtype  and  eight  codified  descriptors  are  ex- 
tracted from  input  buffer  IREC  converted  to  Fieldata  and  stored  in  mnemonics 
ICLSS1,  ICLSS2,  and  ICLSS3,  respectively.  The  special  numerics,  stored 
in  ASCH,  are  extracted  from  IREC,  converted  to  Fieldata  and  stored  in 
mnemonic  IHEAD(l).  The  first  X and  Y coordinate  point  (microns)  is 
removed  from  IREC,  converted  to  inches  and  stored  in  mnemonic  IXFST 
and  IYFST.  They  are  also  stored  in  feature  output  buffer  IXYZ  directed 
by  ICURDX.  The  last  coordinate  point  and  the  bounding  rectangle  infor- 
mation are  then  removed  from  IREC,  converted  to  inches  and  stored  in 
their  respective  areas  found  in  labeled  common  Cl.  Process  control 
is  then  returned  to  the  calling  routine  EPUT. 

f.  Calling  Sequence 
N/A 

g.  Major  Algorithms 
N/A 

4.  Program  Constants  and  Variables 

Labeled  common  area  Cl,  mnemonics: 

ICLSS1  - feature,  class,  type,  sub-type  (Fieldata) 

ICLSS2  - six  codified  descriptors 
ICLSS3  - two  codified  descriptors 
IXMIN  - minimum  X 
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IYMIN  - minimum  Y 

IXMAX  - maximum  X 

IYMAX  - maximum  Y 

IXFST  - first  X of  feature  data  list 

IYFST  - first  Y of  feature  data  list 

IXLST  - last  X of  feature  data  list 

1YLST  - last  Y of  feature  data  list 

IHEAD  - buffer  containing  16  text  word 

Error  Conditions 

N/A 
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Figure  ELI-  7 FORHED  Process  Flow  (Page  3 of  3) 
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Subroutine  REDREC 


1.  Functional  Description 

The  function  of  REDREC  is  to  read  a Lineal  Input  System 
(LIS)  table  coordinate  magnetic  tape  data  list.  A secondary  function  is 
to  strip  from  a data  record  common  data  block  attributes. 


2. 


3. 


Computer  Definition 

a.  Core  Memory  Used 
202  octal  words. 

b.  Peripheral  Equipment 

Input,  9-track  magnetic  tape  non  system  standard. 
Program  Description 
a.  Call'ng  Routine 


b. 


IPUT  (LIS) 
Subroutines  Used 


c. 


None 
Input 

Input  consists  of  a LIS  9-track  magnetic  tape  containing 
table  coordinate  data.  Appendix  I depicts  the  file  layout  and  format  of 
the  LIS  data  records. 


e.  Processing  Methodology 

Processing  methodology  of  subroutine  REDREC  is 


depicted  in  flow  diagram.  Figure  IH-8.  Entry  is  made  via  subroutine 
IPUT.  If  first  entry,  the  LIS  header  record  is  read  and  the  first  end 
of  file  is  sensed.  On  subsequent  entries  or  the  above  first  end  of  file, 
the  next  data  record  is  read.  The  record  type  (IRTYPE),  starting 
vector  position  number  (ISVPN),  number  of  data  vectors  (NUMVEC), 
data  block  number  (IBLNUM),  and  feature  number  (IFETNO)  are 
unpacked  from  their  respective  areas  within  buffer  IREC.  Control  is  then 
returned  to  the  calling  routine  IPUT.  If  a second  end  of  files  is  reached, 
mnemonic  IENDTP  is  set  and  control  is  returned  to  IPUT. 

f.  Calling  Sequence 
Call  REDREC 

g.  Major  Algorithms 
None 

4.  Program  Constants  and  Variables 

IREC  - buffer  containing  LIS  data  record. 

IRTYPE  - LIS  record  type. 

ISVPN  - starting  vector  position  number. 

NUMVEC  - number  of  vectors  in  data  block. 

IBLNUM  - data  block  number. 

IFETNO  - feature  number. 

IENDTP  - end  of  data  flag. 

5.  Error  Condition 

o "TAPE  ERROR" 
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Figure  III-8  - REDREC  Process  Flow 
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H.  OPUT  (Gerber  2032  Plotter) 

1.  Functional  Description 

Subroutine  OPUT  (Gerber  2032  Plotter  Output)  primary 
processing  function  is  to  produce  a Gerber  Plotter  magnetic  tape  by  uti- 
lizing the  plotter  subroutines  described  in  the  Gerber  Plotter  Subroutines 
Manual  for  Users,  Unique  Number  USL-043,  May  1973. 

2.  Computer  Definition  * 

a.  Core  Memory  Used 
4501  octal  words. 

b.  Peripheral  Equipment 

Nine  track  magnetic  tape  unit. 

3.  Program  Description 

a.  Calling  Routine 
MONITR 

b.  Subroutines  Used 

The  following  Gerber  plotter  subroutines  are  used  to 
generate  drafting  instructions: 


IN  IT 
OTYPE 
MOVE 
SEL 


LINES 

FLASH 

MESAGE 

DONE 


Input 


The  input  to  subroutine  OPUT  is  obtained  from  blank 
common,  namely  output  coordinate  data,  buffer  mnemonic  IXYZ,  the 
current  buffer  index  pointer  mnemonic  ICURDX  and  the  number  of  points 
to  output  mnemonic  NUMPTS  (ICURDX).  Other  input  consists  of  the 
symbol  piece  line  weight  mnemonic  ISYPLW. 
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d.  Output 

Output  consists  of  a nine  track  magnetic  tape  containing 
Gerber  plotter  drafting  instructions  generated  by  the  interaction  of  the 
Gerber  Plotter  Subroutines  mentioned  above. 

e.  Processing  Methodology 

Entry  to  Subroutine  OPUT  is  made  from  GLSS  controller 
MONITR.  Figure  9 depicts  the  process  flow  of  OPUT.  On  first 
entry,  Gerber  plotter  initialization  subroutine  INIT  is  called  to  set  constants, 
variables  and  output  file  code  (09)  needed  by  the  Gerber  subroutine.  If  the  user 
requested  the  print  option  IOFLAG  W set  = 4.  Subroutine  OTYPE  is  then 
called  to  set  the  output  device  code,  usually  magnetic  tape.  Upon  subsequent 
entries,  process  control  is  passed  to  the  end  of  process  check.  If  mnemonic 
LTBEND  is  not  equal  to  two  (normal  process)  output  report  counters  are 
incremented  and  the  starting  output  index  pointer  is  generated.  The  number 
of  points  to  output  is  then  extracted  (NPTS)  and  the  coordinate  data  is  scaled 
with  the  resultant  X,  Y's  placed  in  their  respective  output  buffers  (SGER  and 
YGER).  Gerber  Subroutine  MOVE  is  called  to  position  the  photo  head 
at  the  first  coordinate  value  of  the  output  buffers.  The  symbol  piece 
type  line  weight  (mnemonic  ISYPLW  (ISYDEX))  is  placed  in  mnemonic 
IGERSZ.  The  aperture  setting  for  the  photo  head  is  then  found  utilizing 
the  symbol  piece  line  weight  (IGERSZ).  Gerber  Subroutine  SEL  is  called 
to  select  the  aperture  setting  generated  above.  If  the  number  of  points 
to  output  (NPTS)  is  greater  than  one,  Gerber  Subroutine  LINE  is  called 
with  the  appropriate  arguments  with  process  control  being  returned  to 
the  calling  routine  MONITR.  If  the  number  of  points  to  output  is  one 
(dot  symbol)  Gerber  Subroutine  FLASH  is  called  to  generate  a command 
to  flash  the  current  aperture  selected  by  the  prior  call  to  SEL.  Process 
control  is  again  returned  to  the  calling  routine.  When  an  end  of  process 
indication  is  found  (mnemonic  LTBEND  is  equal  to  two)  Gerber 
Subroutine  MESAGE  is  called  causing  an  output  message  to  be  generated 


III- 5 6 


(on  magnetic  tape)  for  the  Gerber  plotter  operator  indicating  end  of  plot. 
The  last  Gerber  Subroutine  to  be  called  is  DONE  which  causes  the  plotting 
head  to  be  moved  to  the  lower  center  of  the  plotting  table  and  the  plotter 
to  halt.  Control  is  then  returned  to  MONITR. 

Calling  Sequence 

Can  OPUT  ' 

g*  Major  Algorithms 

None 

4*  Program  Constants  and  Variables 

NPTS  - number  of  coordinate  points  to  output. 

XGER  - 1000  word  buffer  containing  X values. 

YGER  - 1000  word  buffer  containing  Y values. 

IAPNB  - current  aperture  selection  number. 

5.  Error  Conditions 
None 
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OPUT  (XYNETICS  Plotter ) 


1 . Functional  Description 

Subroutine  OPUT  (XYNETICS  Plotter  Output)  primary  pro- 
cessing function  is  to  produce  a XYNETICS  plotter  magnetic  tape  by 
utilizing  the  XYNETICS  Standard  User  FORTRAN  package. 

2.  Computer  Definition 

a.  Core  Memory  Used 

232  octal  words. 

b.  Peripheral  Equipmen  t 

Nine  track  magnetic  tape  unit. 

3.  Program  Description 

a.  Calling  Routine 

MONITR 

b.  Subroutines  Used 

The  following  XYNETICS  plotter  subroutines  are  used 
to  generate  plotter  directives: 

DIMTAB 

PLOTX 

c.  Input 

The  input  to  subroutine  OPUT  is  obtained  from  blank 
common,  namely  output  coordinate  data,  buffer  mnemonic  IXYZ,  the 
current  buffer  index  pointer  mnemonic  ICURDX  and  the  number  of  points 
to  output  NUMPTS  (ICURDX). 

d.  Output 

Output  consists  of  a nine  track  magnetic  tape  containing 
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XYNETICS  plotter  directives  generated  by  the  interaction  of  the  XYNETICS 
subroutines  mentioned  above. 

c.  Processing  Methodology 

Entry  to  Subroutine  OPUT  is  attained  from  GLSS 
controller  MONITJR.  Figure  III-  10  depicts  the  processing  methodology 
of  OPUT.  On  first  entry,  XYNETICS  plotter  initialization  Subroutine 
DIMTAB  is  called  to  establish  the  drawing  surface  and  logical  output 
device  code  number.  If  the  input  data  is  LIS,  the  scale  factor,  mnemonic 
SCLFAK,  is  set  to  metric  (centimeters  times  ten  thousand),  otherwise 
it  is  left  in  English.  Upon  subsequent  entries  process  control  is  passed 
to  the  end  of  job  interrogation.  If  mnemonic  IJBEND  is  not  equal  to  two, 
output  report  counters  are  incremented,  starting  output  index  pointer 
generated  and  the  number  of  points  to  output  extracted  (NPTS).  The 
first  coordinate  point,  of  the  symbol  piece  in  question,  is  extracted 
and  scaled  with  XYNETICS  Subroutine  PLOTX  being  called  to  move  to 
the  start  of  the  feature  with  the  pen  up.  The  symbol  piece  coordinate 
data  is  then  scaled  and  subroutine  PLOTX  is  repeatedly  executed,  with 
the  pen  down  command,  until  the  end  of  the  data  list  is  reached. 

PLOTX  is  then  called  to  issue  a pen  up  command  at  the  last  data  point 
output  with  process  control  being  returned  to  the  calling  routine  MONITJR. 
Upon  encountering  an  end  of  job  indication,  mnemonic  IJBEND  equal 
to  two,  subroutine  PLOTX  is  called  to  issue  an  end  of  plot  command. 
Process  control  is  returned  to  the  calling  routine  MONITR. 

f.  Calling  Sequence 
Call  OPUT 

g.  Major  Algorithms 
None 
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4*  Program  Constants  and  Variables 

NPTS  - number  of  coordinate  points  to  output. 

SCLFAK  - scale  factor  to  be  applied  to  coordinate  date, 

i.e.,  if  data  stored  in  metric  SCLFAK  = 25400; 
if  data  stored  in  Ihglish  SCLFAK  = 10000. 

UBEND  - end  of  job  indicator. 

5.  Error  Conditions 
None 
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OPUT  - (MMS  32) 

1 . Functional  Description 

) Subroutine  OPUT's  (MMS  32  word  output  for  DMAAC)  primary 

function  is  to  control  the  formatting  and  output  of  a RADC  MMS-32  word 
record  magnetic  tape.  This  is  accomplished  via  calls  to  subroutines 
to  change  Univac  1100  Series  floating  point  words  to  Honeywell 
6000  Series  floating  point  words  (UNVHIS)  and  format  and  output 
Honeywell  6000  Series  physical  records  (PAK298). 

2.  Computer  Definition 

a.  Core  Memory  Used 
1027  octal  words. 

b.  Peripheral  Equipment 
None 

3.  Program  Description 

a.  Calling  Routine 
MONITR 

b.  Subroutine  Used 

UNVHIS 
PAK298 

c.  Input 

Input  consists  of  data  found  in  blank  common  namely 
mnemonics  ICLSS1  (feature  class,  type  and  subtype),  ICURDX  (current 
index  pointer),  IXYZ  (buffer  contains  symbol  coordinate  data),  and 
ISYPLW  (symbol  piece  line  weight). 

d.  Output 

Output  consists  of  a MMS-32  magnetic  tape  file  and  tally 
summary  report  data  namely  mnemonics  IHEDOT  (number  of  header  records  output) , 


1 


III-66 


NPTSOT  (number  of  points  output)  and  IDTOUT  (number  of  data  records 
output). 

e.  Processing  Methodology 

Processing  flow  of  subroutine  OPUT  (MMS-32  word 
for  DMAAC)  is  shown  in  Figure  IH-  11.  Entry  is  made  via  GLSS 
control  routine  MONITR.  Upon  taking  process  control,  subroutine 
OPUT  interrogates  a first  entry  flag  (mnemonic  M2).  If  found  to  be 
the  first  entry,  a JCRS  record  (MMS-32  word  start  record)  is  for- 
matted and  packed  into  a Honeywell  Series  6000  physical  record  via 
subroutine  call  to  PAK298.  Mnemonic  Ml  is  then  set  to  normal  process 
for  subsequent  entries.  The  job  through  flag  (UBEND)  is  checked  and 
if  its  status  is  "end  of  job"  (UBEND  =2)  a JCRE  record  (MMS-32 
word  end  record)  is  formatted  and  output  via  subroutine  call  to  PAK298. 
If  the  job  end  flag  is  not  set  to  end  of  job,  the  minimum,  maximum, 
first,  last  points  are  calculated  for  the  symbol  coordinate  data  in 
question.  These  points  are  then  changed  from  Univac  1100  Series 
integer  numbers  to  Univac  1100  Series  floating  point  number  and  scaled 
to  inches.  Subroutine  UNVHIS  is  called  to  change  the  Univac  1100 
Series  floating  point  numbers  (min,  max,  first,  last)  to  Honeywell 
6000  Series  floating  point  numbers.  The  Honeywell  floating  point 
numbers  are  then  stored  in  the  respective  locations  within  the  header 
record  IHDREC.  The  symbol  piece  features  class,  type  and  subtype 
(ICLSS1)  is  entrant  and  stored  into  the  header  record  along  with  the 
symbol  piece  line  weight  (ISYPLW).  The  header  record  is  then  packed 
into  the  physical  record  via  subroutine  PAK298.  The  symbol  coordinate 
data  are  extracted  from  the  input  buffer  IXYZ,  changed  to  Univac 
floating  point  numbers  and  scaled  to  inches.  The  Univac  floating  point 
numbers  are  then  altered  to  Honeywell  floating  point  numbers  via 
Subroutine  UNVHIS.  The  Honeywell  floating  point  numbers  are  stored 
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into  a thirty  two  word  array  (IMMS  MMS-32  word  data  records)  and 
packed  into  the  Honeywell  physical  record  via  PAK298.  Upon  reaching 
an  end  of  input  coordinate  data  indication,  the  partial  data  record,  if 
one  exists,  is  output  via  PAK298.  Process  control  is  then  returned 
to  the  calling  routine  MONITR. 

f.  Calling  Sequence 
Call  OPUT  ' 
g*  Major  Algorithms 
None 

4.  Program  Constants  and  Variables 

ICLSS1  - feature  class,  type,  subtype  (Field  Data) 

IJBEND  - job  end  flag  (IJBEND=2) 

IHDREC  - MMS  header  record  array  (MMS  32  word) 

IMMS  - MMS  32  word  data  record 
IHEDOT  - number  of  header  records  output 
NPTSOT  - number  of  points  output 
IDTOUT  - number  of  data  records  output 

5.  Error  Conditions 
None 


III-68 


Subroutine  OPUT 

MMS-32  word  for 
DMA  AC 

Purpose-  To  format 
and  output  a HIS 
MMS-32  word  record 
magnetic  tape  via 
subroutine  UNVHIS 
and  PAK298. 

Input-  Data  found  in 
blank  common  namely 
header  data,  symbol 
piece  coord, 
data,  etc. 

Output-  Magnetic  tape 
containing  nine  MMS-3  l 
word  records  per 
physical  record 
(Subroutine  PAK298) 

Subroutine  Used  - 
UjSi  VHib-umvac 
floating  point  number 
to  Honeywell  6000 
floating  point  number. 


( OPUT 

I 

I 
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© 
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Figure  III-  11 


Store  Min,  Max, 
'First,  Last 
Floating  Point 
j Numbers  into 
! Header  IHDREC 


Extract  Number 
of  Points  in 
Symbol 
NPTS 


Figure  HI-  1 1 


OPUT  Process  Flow 
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K.  PAK298 


1 . Functional  Description 

The  primary  function  of  subroutine  PAK298  is  to  format  and 
pack  MMS-32  word  records  into  a 298  word  buffer  so  its  contents  are 
identical  to  a Honeywell  Series  6000/600  GCOS  system  standard  formatted 
magnetic  tape  which  are  nine  MMS-32  word  record  per  298  word  physical 
record. 

2.  Computer  Definition 

a.  Core  Memory  Used 
705  octal  words 

b.  Peripheral  Equipment 

Magnetic  tape  unit. 

3.  Program  Description 

a.  Calling  Routine 

OPUT  (MMS-32  word  output  routine  for  DMA  AC) 

b.  Subroutine  Used 

Univac  Fortran  I/O  processing  routine  NTRAN 

c.  Input 

Input  consists  of  a MMS-32  word  header  records  and 
data  record  via  calling  sequence.  Also  input  via  calling  sequence  is  a 
flag  indication  end  of  process. 

d.  Output 

Output  consists  of  a magnetic  tape  formatted  identical 
to  a Honeywell  Series  6000/600  GCOS  system  standard  tape  containing 
nine  MMS-32  word  records  per  298  word  physical  record.  See  Figure 
III- 12  for  the  magnetic  tape  format.  See  Figure  HI- 13  for  format 
of  a 298  word  physical  record. 
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e.  Processing  Methodology 

Subroutine  PAK298  processing  flow  is  depicted  in  Figure 
III-  14.  Entry  is  made  via  Subroutine  OPUT  (MMS-32  word  output  routine 
for  DMAAC).  Upon  first  entry,  a Honeywell  Series  6000/600  GCOS  System 
fourteen  word  header  label  record  (containing  zeroes)  is  written  to  magnetic 
tape  followed  by  a standard  end  of  file  mark.  A block  control  word  con- 
taining the  block  serial  number  and  block  size  (451  octal)  is  formatted 
and  stored  into  the  first  word  of  the  physical  record  (see  Figure  HI-  13). 

The  data  input  via  the  calling  sequence  (mnemonic  IMMS)  is  extracted  and 
stored  into  the  physical  record  (mnemonic  IREC).  The  record  control 
word  (mnemonic  IRCW)  is  stored  into  buffer  IREC  via  record  control 
index  pointer  IRCWDX.  If  IREC  becomes  full  (mnemonic  INDEX  equals 
298)  or  end  of  job  indicator  is  set  (mnemonic  LEND  ) the  298  physical 
record  is  written  to  magnetic  tape  via  UNIVAC  FORTRAN  I/O  processing 
routine  NT  RAN.  If  the  end  of  job  indicator  is  set,  a standard  end  of  file 
is  written  via  NTRAN  and  the  magnetic  tape  rewound.  If  the  above  con- 
ditions are  false,  the  record  control  index  pointer  (IRCWDX)  is  incre- 
mented by  thirty  three  and  buffer  IREC  index  pointer  is  incremented 
by  one  with  process  control  being  returned  to  the  calling  routine  OPUT. 

f.  Calling  Sequence 

Call  PAK298  (IMMS,  IEND) 

IMMS  - MMS-32  word  record  (header  followed  by 

data  records). 

IEND  - Flag  to  indicate  end  of  process 
IEND  = 0 normal 
IEND  = 1 end  of  process. 

g.  Major  Algorithms 

None 
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Program  Constants  and  Variablea 

IBCW  - physical  data  block  control  word. 

IRCW  - record  control  word. 

IRCWDX  - record  control  word  index  pointer. 

INDEX  - index  pointer  into  buffer  IREC. 

IREC  - buffer  containing  block  control  word  followed  by 
nine  thirty  three  word  logical  records  containing 
record  control  word  and  MMS  input  record. 

Error  Conditions 


None 


14  Word  Header  Label 


Standard  End  of  File  (17_) 

or  8(23fl) 


Data  Blocks  (298  words  per 

physical  record) . 

(nine  MMS-32  word 
records). 


Figure  III-  12  - HIS  Standard  Format  of  Labeled  Files 


Purpose  - To  pack 


MMS-32  word  records 
into  a 298  word  buffer 
to  make  the  record 
look  like  a HIS  format- 
ted tape. 

Input  - A MMS-32  word 
record,  an  indicator 
for  end  of  process  con- 
dition. 


/ First 
entry  Ml  =2 


New  block 


1 Output  - 298  word 
physical  record  con- 
taining nine  MMS-32 
word  records  along 
Jwith  block  control  word 
land  record  control  word 
'information. 


Set  record 
control  word 
(RCW) 


Store  MMS-32 
word  data  into 
298  word  buffer 


Figure  III-  14  PAK298  Process  Flow  (Page  1 of  2) 
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L.  UNVHIS 

1 . Functional  Description 

Subroutine  UNVHIS  primary  function  is  to  reformat  Univac 
1100  Series  floating  point  numbers  to  Honeywell  6000  Series  floating 
point  numbers. 

2.  Computer  Definition 

a.  Core  Memory  Used 
140  octal  words. 

b.  Peripheral  Equipment 

. None 

3.  Program  Description 

a.  Calling  Routine 

OPUT  (MMS  32  word  output  for  DMAAC) 

b.  Subroutine  Used 
None 

c.  Input 

Input  consists  of  a coordinate  point  (X,  Y)  that  is 
extracted  from  the  calling  sequence.  The  X,  Y data  are  input  as  Univac 
1100  Series  floating  point  numbers. 

d.  Output 

Output  consists  of  a coordinate  point  converted  to 
Honeywell  6000  Series  floating  point  number  stored  in  the  calling  sequence. 

e.  Processing  Methodology 

Processing  flow  of  Subroutine  UNVHIS  is  depicted  in 
Figure  III-  15.  Entry  is  made  via  subroutine  call  from  OPUT 


III-80 


(MMS  32  word  output  for  DMAAC).  Upon  receiving  process  control, 
subroutine  UNVHIS  extracts  the  X value  floating  point  number  and 
stores  it  into  Mnemonic  VAL.  Mnemonic  VAL  is  equivalenced  (Fortran 
EQUIVALENCE  statement)  to  mnemonic  IVAL,  thus  treating  in  value 
in  question  as  an  integer  number.  The  Univac  1100  Series  floating  point 
characteristic  and  mantissa  (ICHART  and  IMANTS  respectively)  are 
extracted  and  reformatted.  If  the  characteristic  is  less  than  one 
hundred  and  twenty  eight  (128)  the  characteristic  (ICHART)  is  refor- 
matted and  the  negative  characteristic  bit  (Honeywell)  turned  on. 

If  the  characteristic  is  greater  than  or  equal  to  one  hundred  twenty  eight 
(128),  one  hundred  twenty  eight  (128)  is  subtracted  from  it  and  the 
resultant  reformatted.  The  reformatted  characteristic  and  mantissa 
are  OR-ed  (Fortran  OR  Statement)  together  forming  the  Honeywell 
floating  point  number.  If  the  X value  was  the  last  value  processed, 
it  is  set  into  the  output  argument  list  (IOX)  and  the  Y value  is  moved 
to  mnemonic  VAL  with  the  aforementioned  process  being  repeated. 

After  the  Y value  has  been  processed,  it  is  stored  into  the  output 
argument  list  (IOY)  and  process  control  returned  to  OPUT. 

f.  Calling  Sequence 

CALL  UNVHIS  (X,  Y,  IOX,  IOY) 

X - Univac  1100  Series  floating  point  number, 

X value  (Input) 

Y - Univac  1100  Series  floating  point  number, 

Y value  (Input) 

IOX  - Honeywell  6000  Series  floating  point  number 
X value  (Output) 

IOY  - Honeywell  6000  Series  floating  point  number 

Y value  (Output) 

g.  Major  Algorithms 

None 
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4.  Program  Constants  and  Variables 


ICHART  - Characteristic  of  floating  point  number 
IMANTS  - Mantissa  of  floating  point  number 


M.  OPUT  (Dummy  OPUT) 


1.  Functional  Description 

The  primary  processing  task  of  FORTRAN  subroutine  OPUT 
(Dummy  OPUT)  is  to  serve  as  a debug  tool  within  the  GLSS.  When  the  user 
needs  to  list  the  coordinate  values  of  symbolized  features,  subroutine  OPUT 
(Dummy  OPUT)  is  inserted  into  the  executable  element. 

2.  Computer  Definition 

a.  Core  Memory  Used 
232  octal  words 

b.  Peripheral  Equipment 
Line  printer 

3.  Program  Description 

a.  Calling  Routine 
MONITR 

b.  Subroutines  Used 

None. 

c.  Input 

Input  to  subroutine  OPUT  (Dummy  OPUT)  consists  of  data 
found  in  blank  common;  namely,  the  coordinate  data  buffer,  mnemonic 
IXYZ,  and  the  number  of  points  in  that  buffer,  mnemonic  NUMPTS. 

d.  Output 

Output  consists  of  a line  printer  listing  of  the  coordinate 
values  found  in  buffer  IXYZ. 

e.  Processing  Methodology 

Subroutine  OPUT  (Dummy  OPUT)  is  called  via  the  control 
routine  MONITR.  Coordinate  data  is  extracted  from  the  IXYZ  buffer  stored 
into  a temporary  output  buffer  mnemonic  IOUT,  in  sets  of  six  coordinates, 
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and  output  the  line  printer.  Upon  reaching  an  end  of  coordinate  data  indi- 
cation, process  control  is  returned  to  the  calling  routine  MONITR. 

f.  Calling  Sequence 
N/A 

g.  Major  Algorithms 
None 

4.  Program  Constants  and  Variables 

IXYZ  - Two  dimensional  array  containing  X,Y  coordinate  points. 
NUMPTS  - Number  of  data  points  to  output. 

5.  Error  Conditions 
None. 
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symbol  specification  descriptor  codes  (DESP)  and  their  respective  symbol 
specification  directives.  Tables  HE- 1 and  HI- 2 depict  the  format  of  the 
symbol  specification  descriptor  codes  and  symbol  specification  directives, 
respectively. 

d.  Output 

Output  consists  of  symbol  specification  directives  stored 
in  blank  common  areas  (symbol  specification  directives  common  area) 
or  (feature  descriptor  data)  mnemonic  buffer  IHEAD  (currently  not  used 
at  DMAAC) 

e.  Processing  Metholodogy 

Processing  flow  of  subroutine  FETCOR  is  shown  in 
Figure  IU-16.  Entry  is  made  via  GLSS  control  routine  MONITR.  The 
symbol  specification  directives  common  buffers  are  cleared  with  the  read 
symbol  specification  from  header  flag  (IDIRCT)  being  interrogated.  If 
found  to  be  set,  the  symbol  directives  are  unpacked  from  their  respective 
locations  found  in  the  header  text  buffer  (not  used  at  DMAAC)  (see  Table 
III-3),  and  stored  in  the  following  mnemonics:  NUMPEC  (number  of  symbol 
pieces),  ISTNOl  (color  separation  sheet  number  one),  ISTN02  (color  sep- 
aration sheet  number  two),  ICONON  (conformal/non-conformal  information 
buffer),  ISYTP  (symbol  piece  type  buffer),  ISYSZ  (symbol  piece  size  buffer), 
and  ISYPLW  (symbol  piece  line  weight  buffer).  If  IDIRCT  is  not  set  (normal 
at  DMAAC)  the  symbol  . specification  directive  override  fiag  (IOVRID)  is 
checked.  If  found  set,  the  override  descriptors  are  examined  against  the 
input  feature  descriptor  via  call  to  subroutine  CKDESP,  and  if  a match 
exists,  (IHIT=0)  the  matched  overrides  are  stored  in  the  aforementioned 
symbol  specification  common  buffer.  If  the  symbol  override  flag  (IOVRID) 
is  not  set  or  the  above  override  check  fails,  a first  entry  check  is  made. 

If  it  is  the  first  entry,  the  previously  stored  descriptors  (via  SPEC)  are 
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read  into  buffer  IDESP  (see  Table  HI-3.).  The  input  feature  descriptors, 
mnemonics  ICLSS1,  ICLSS2,  and  ICL.SS3,  are  then  checked  against  the 
above  descriptors  (IDESP),  again  via  a call  to  CKDESP.  If  a match  exists, 
(IHIT=0),  the  index  generated  (mnemonic  IDX)  is  used  to  retrieve  from  the 
symbol  specification  random  file  a unique  set  of  symbol  piece  specification 
directives  to  be  applied  to  the  given  input  feature.  Table  III-4  depicts  the 
above  correlation.  If  a match  does  not  exist  (IHIT=1),  no  correlation  flag 
(IERRID)  is  set  and  subroutine  NOCORR  is  called  to  report  on  the  line 
printer, the  input  feature's  descriptor  and  feature  number.  Process  control 

is  then  returned  to  the  calling  routine  MONITR.  If  the  store  symbol  speci- 
fication in  header  flag  is  set  (mnemonic  IOTHED,  not  used  at  DMAAC),  the 
above  symbol  piece  directives  are  packed  into  header  text  area  mnemonic 
IHEAD  with  process  control  being  returned  to  MONITR.  Table  UI-3  depicts 
the  format  of  buffer  IHEAD.  If  IOTHED  is  not  set,  the  symbol  piece  types 
are  tallied  with  process  control  being  returned  to  the  calling  routine  MONITR. 

f.  Calling  Sequence 
Call  FETCOR 

g.  Major  Algorithms 
None 

4.  Program  Constants  and  Variables 

feature  class,  type,  subtype  (BCD) 

six  codified  descriptors  (BCD) 

two  codified  descriptors  (left  justified) 

flag  to  indicate  pack  symbol  specification 
directive  into  buffer  IHEAD. 

flag  to  indicate  unpack  symbol  specifica- 
tion directives  from  buffer  IHEAD. 

flag  to  indicate  feature  symbol  specifica- 
tion exists. 

buffer  containing  symbol  specification 
descriptors. 

buffer  for  header  text. 


ICLSS1 

ICLSS2 

ICLSS3 

IOTHED 

IDIRCT 

IOVRID 

IDESP 

IHEAD 
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NUMPEC 

ISTNOl 

ISTN02 

ICONON 

ISYTP 

ISYSZ 

ESYPLW 

Error  Conditions 


number  of  symbol  pieces. 

color  separation  sheet  number  one. 

color  separation  sheet  number  two. 

buffer  containing  conformal/non-conformal 
information. 

buffer  containing  symbol  piece  type. 

buffer  containing  symbol  piece  size. 

buffer  containing  symbol  piece  line 
weights. 


None 


Word  1 


Number  of  symbol  pieces 


Word  2 
Word  3 

Word  4 
Word  5 
Word  6 
Word  7 


Word  35 


Symbol  Specification  Random  Record 
Random  File  File  Code  02 
Table  III- 2 


Table  III— 3 Contents  of  IHEAD  When  Symbol  Directives  are  Stored 


Feature  descriptor 
No.  1 


Feature  descriptor 
No.  2 


No.  3 


No.  4 


No.  5 


No.  6 


No.  7 


No.  8 


Feature  descriptor  No.  l's 
symbol  spec,  directive  reco 


Feature  descritor  No.  2*s 
Symbol  spec,  directive  recor 


No.  3' 


No. 

4's 

No. 

5's 

No. 

6 

No. 

7 

No. 

8 

Feature  descriptor 
No.  N 


Feature  descriptor  No.  N 
Symbol  spec,  directive  recor 


Feature  descriptors  as  they 
appear  in  buffer  IDESP 


Symbol  specification  directive 
records  as  they  appear  on 
random  file. 


Correlation  between  feature  descriptors  and 
symbol  specification  directive  random  records. 


Table  HI-  4 


Subroutine  FETCOR 


Purpose;  to  associate  inpi|t 
.feature  descriptors  to  a 
I set  of  symbol  specification 
directives. 


I Input:  Feature  descriptor  | 
data,  class,  type,  subtype  i 
land  codified  descriptors.  I 
Symbol  specification  di- 
irectives  overrides,  status 
'indicators,  flags,  and 
pointers. 


| Output:  Symbol  specifica-  | 
tion  directives.  I 


I 


' Read  PERM  file  ' 

4 

1 file  code  02 

Irandom  pointer  i 

>/ Store  \ 

iSub  IDX  1 

/specification 

1 

\dnto  header^ 

Read  symbol 
directive  via  j 
random 
■pointer 


Clear  header 
text  area,  store 
feature  number 
IHEAD(2)= 
IHEAD1N 


Pack  symbol 
specification 
into  header  text 


/ape  cifica  taon 
's'into  header  ^ 
^iQTHEQ/ 


RETURN 


Figure  Ht-16  FETCOR  Process  Flow  (Page  2 of  5) 
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Extract  Feature 
Number  IFETNC 
= IHEAD(2) 


/ 

/ 

/ 

/ 

/ 

_ 

I This  can  only  be  done 
after  the  directives 
have  been  stored  on 
the  MMS-32  word 
header  record. 


Unpack  Symbol 
Directives, 
Store  in  Res- 
pective Symbol 
Directive  Areas 


“1 

I 

I 


(RETURN  J 


Figure  III- 16  FETCOR  Process  Flow 

(Page  4 of  5) 
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111-16  - FETCOR  Process  Flow 
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CKDESP 


1.  Functional  Description 


Subroutine  CKDESP's  primary  processing  function  is  to 
examine  input  header  descriptors  against  specification  descriptors 
or  override  descriptors  with  a resultant  of  a flag  indicating  a match 
or  no  match.  A secondary  function  is  to  treat  specification  or  override 
descriptor  characters  containing  a field  data  X as  a match  against 
the  corresponding  input  header  descriptor  character. 

2.  Computer  Definition 


Core  Memory  Used 


175  octal  words 

b.  Peripheral  Equipment 


Not  applicable. 

3.  Program  Description 

a.  Calling  Routine 
FETCOR 

b.  Subroutines  Used 
None 

c.  Input 

Input  to  Subroutine  CKDESP  consists  of  data  found  in 
arrays  mnemonics  ICLS  and  IDESOV.  Array  ICLS  contains  the  input 
header  descriptor  data  while  array  IDESOV  contains  specifications  or 
override  descriptor  data. 

d.  Output 

Output  from  Subroutine  CKDESP  is  simply  a flag, 
mnemonic  name  IHIT,  indicating  whether  a match  was  or  was  not  made. 
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Processing  Methodology 

Entry  to  Fortran  Subroutine  CKDESP  is  made  via 
Subroutine  FETCOR.  Figure  III-  17  depicts  the  process  flow  of 
CKDESP.  Upon  entry,  the  match  no  match  flag,  mnemonic  IHIT,  is 
cleared  with  the  index  J (word  within  arrays  pointer)  being  set  to  one. 

The  input  header  descriptor  and  specification  or  override  descriptor 
data,  array  ICLS  and  IDESOV  respectively,  are  indexed  by  J,  moving 
the  J thword  to  temporary  mnemonic  ICLSS  and  IOUR.  Index  I (character 
within  word  pointer)  is  then  set  to  one.  Mnemonic  IOUP's  I**1  character 
is  masked,  right  justified  and  interrogated.  If  found  to  contain  a fiel 
data  "X"  (octal  35)  process  control  is  passed  to  the  next  character  within 
mnemonic  IOUR.  If  not  a fieldata  "X"  mnemonic  ICLSS  corresponding 
character  (I  th  character)  is  masked  and  right  justified.  The  two  above 
masked  characters  are  then  examined  and  if  found  to  be  different,  output 
flag  IHIT  is  set  to  one  and  process  control  returned  to  the  calling  routine. 
If  the  masked  characters  are  found  to  be  alike,  index  I is  examined  and 
if  found  to  be  less  than  or  equal  to  five,  is  incremented  by  one  with 
process  control  being  returned  to  the  above  character  masking.  If  index 
I is  greater  than  five,  index  J is  interrogated.  When  found  to  be  less 
than  three,  J is  incremented  by  one  with  process  control  being  returned 
to  the  aforementioned  moving  of  the  J th  words  from  ICLS  and  IDESOV 
arrays  to  temporary  locations.  When  index  J is  found  to  be  greater 
than  or  equal  to  three,  process  control  is  returned  to  the  calling  routine 
FETCOR. 

f.  Calling  Sequence 

Call  CKDESP  (ICLS,  IDESOV,  IHIT) 

ICLS  - three  word  array  containing  input  header 
descriptor  data. 

IDESOV  - three  word  array  containing  specification 
or  override  descriptor  data. 
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IHIT  - flag  indicating  match  or  no  match 
IHIT  = 0 match 
IHIT  = 1 no  match. 

g.  Major  Algorithms 

None 

Program  Constants  and  Variables 

MASKX  - mnemonics  is  containing  fieldata  "X"  (octal  35) 
Error  Conditions 


None 


Figure  III-  17  - CKDESP  Process  Flow 

(Page  1 of  2) 
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Figure  III-  17 


CKDESP  Process  Flow 

(Page  2 of  2) 
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1 . Functional  Description 

The  processing  task  of  FORTRAN  subroutine  NOCORR  is  to 
report  to  the  line  printer  feature  descriptor  data  that  could  not  be  correlated 
with  symbol  specification  data. 

2.  Computer  Definition 

a.  Core  Memory  Used 
166  octal  words 

b.  Peripheral  Equipment 
Line  printer 

3.  Program  Description 

a.  Calling  Routine 
FETCOR 

b.  Subroutines  Used 
None. 

c.  Input 

Input  to  subroutine  NOCORR  consists  of  feature  descriptor 
data,  feature  class,  type,  and  subtype,  located  in  the  calling  sequence. 

d.  Output 

Output  is  a line  printer  listing  of  the  feature  descriptor 

data  and  feature  number. 

e.  Processing  Methodology 

FORTRAN  subroutine  NOCORR  is  activated  via  FORTRAN 
subroutine  FETCOR  when  a correlation  between  feature  descriptor  data  and 
symbol  specification  data  can  not  be  associated.  Upon  receiving  process 
control  the  feature  descriptor  data  and  feature  number  passed  to  NOCORR  in 
the  calling  sequence  is  listed  to  the  line  printer.  Process  control  is  then 
returned  to  the  calling  routine  FETCOR. 
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£. 


g 


Calling  Sequence 
Call  NOCORR  (ICL.IFTNUM) 

ICL  - array  containing  the  feature  descriptor  data 
IFTNUM  - feature  number 

Major  Algorithms 

None. 

Program  Constants  and  Variables 
N/A 

Error  Conditions 
None. 


Q. 


SMOOTH 


1.  Functional  Description 

As  a FORTRAN  subroutine,  SMOOTH  performs  cleaning,  data 
reduction  and  smoothing  processes  on  line  center  data  prior  to  application 
of  graphic  symbols. 

2.  Computer  Definition 

a.  Core  Memory  Used 
2722  octal  words 

b.  Peripheral  Equipment 
None 

3.  Program  Description 

a.  Calling  Routines 
MONITR 

b.  Subroutines  Used 

SORT 

BACKUP 

ATAN 

c.  Input 

Inputs  to  subroutine  SMOOTH  consist  of  data,  contained 
in  common  areas  C2  (feature  line  center  data)  and  C6  (parameters  and 
variables). 

d.  Output 

Outputs  from  subroutine  SMOOTH  consist  of  line  center 
data  in  common  area  C2  which  has  been  smoothed.  Also,  output  consists 
of  tally  summary  reports  in  common  area  C7. 


IH-108 


e. 


Processing  Methodology 

When  first  called,  the  subroutine  SMOOTH  tests  whether 
or  not  the  input  file  (parameter  IFILE)  is  a LB  table  coordinate  file.  If 
the  LIS  file  is  determined  as  the  input  file,  SMOOTH  proceeds  to  convert 
the  input  maximum  distance,  minimum  distance,  and  slope  distance  to 
metric  units  and  stores  the  converted  values  in  the  appointed  common  area. 
After  the  conversion,  or  if  LIS  table  coordinate  file  is  not  file  input  file, 
SMOOTH  sets  a flag  (IFIRST=2)  to  avoid  subsequent  testing  of  the  input  file 
parameter  on  succeeding  entries. 

The  subroutine  SMOOTH  then  determines  if  the  input  line 
center  feature  contains  more  than  two  data  points.  When  the  input  line  cen- 
ter feature  contains  at  most  two  points,  no  cleaning  process  is  performed. 

By  interrogating  the  smooth  option  selected  by  the  user  (mnemonic  ISMOTH), 
subroutine  SMOOTH  proceeds  with  performing  the  option  selected  through 
the  data  as  follows: 

o Smooth  Option  0 

Subroutine  SMOOTH  computes  only  the  distance  between  two 
successive  points  and  moves  the  distance  value  squared  to  the 
data  buffer . 

o Smooth  Option  1 

Subroutine  SMOOTH  calculates  the  distances  between  two  suc- 
cessive points  at  which  time  a test  is  made  to  determine  if  the 
distance  is  greater  than  the  minimum  distance.  Points,  other 
than  special  points,  which  are  determined  to  be  within  the  mini  - 
mum  distance,  are  deleted  from  the  data  list. 

o Smooth  Option  2 

When  subroutine  SMOOTH  is  called  with  option  2,  the  distances 
between  successive  points  is  first  computed.  After  the  distances 
are  determined,  SMOOTH  steps  through  the  data  list  in  buffer 
two,  computes  the  midpoints  between  sequential  points,  computes 
and  examines  the  distances,  and  stores  the  midpoints  with  their 


distances  into  buffer  one.  The  preceding  operation  is  not  per- 
formed when  two  points  are  determined  to  be  point-point  or 
when  a special  point  is  encountered.  Point-point  data  and 
special  points  are  directly  stored  in  buffer  one. 
o Smooth  Option  3 

On  a call  to  subroutine  SMOOTH  with  option  3,  the  cleaning 
process  is  performed  to  delete  points  which  are  not  in 
continuity  of  the  data  list.  SMOOTH  transverses  through 
the  data  list  in  buffer  two,  tests  the  continuity  of  four 
sequential  data  points  by  a call  to  BACKUP,  deletes  the 
third  point  which  does  not  conform  with  the  data,  and  stores 
the  clean  data  points  with  the  computed  sequential  distances 
greater  the  minimum  distance  in  buffer  one.  While 
deleting  points  which  do  not  conform  with  the  data,  SMOOTH 
will  maintain  all  points  which  are  flagged  as  special  points 
and  end  points  of  point -point  data  (smooth  option  1 is  performed 
before  the  above), 
o Smooth  Option  4 

With  option  4,  the  subroutine  SMOOTH  will  first  perform 
option  2,  then  follow  with  option  3,  When  option  3 is  per- 
formed, the  data  points  have  already  been  transferred  from 
buffer  two  to  buffer  one  in  the  operation  of  option  2. 
o Smooth  Option  5 

When  subroutine  SMOOTH  encounters  option  5,  SMOOTH  wall 
first  proceed  with  processing  the  input  through  option  2 
(see  the  above).  After  completing  option  2,  the  smooth  data 
in  buffer  one  will  be  processed  again.  That  is,  the  midpoints 
are  computed  with  their  sequential  distances  and  stored  in 
buffer  one,  while  keeping  those  data  points  which  are  flagged 
as  special  or  end  points  of  point-point  data. 
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f.  Calling  Sequence 
Call  SMOOTH 

g.  Major  Algorithms 
Smooth  Option  0 

Let(pc.,  y.)and(xi+1,  y.+1)  be  coordinates  of  adjacent  points,  and 

let  d , be  the  distance  from  the  i th  point  to  the  i+1  th  point. 
i+1 

Option  0 only  computes: 

A+i  * V (*i+i  - + <*i+i  • 


Smooth  Option  1 

Given  (x£,  y.),  (xi+J , y£+1)»  and  d£  as  in  smooth  option  1,  and 
given  IMINDT  as  the  minimum  resolution 


then. 


if  d.  < IMINDT, 


Xi  = xi+l 


y.  = y. 

7i  7i 


di  = V^i+1  ‘ Xi-1}  + (yi+i  ■ yi-!} 


Smooth  Option  2 


Let  (x  , yi)  and  (xi+1»  yi+1)  be  adjacent  points, 
then  the  midpoint (xi+1 , yJ+1)  will  be  computed 


1/2  (x£  + xi+1) 


yi+l  = l/2(y.  + y.+1) 
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Smooth  Option  5 

Two  iterations  of  option  2 are  performed:  the  first  iteration 
with  points  in  buffer  two,  and  the  second  iteration  with  points 
in  buffer  one. 

o Smooth  Option  6 

(*i»  Yi) 


(Xi-Z’Yi-z) 

Let  (xi_2»  Yi_2^'  (xi_l»  Yi-l)  and  (xi>  Yi)  be  three  successive 
data  points  in  buffer  two. 

Now  let 

(1)  x + Bj  y + Cj  = 0 be  the  equation  of  the  line  formed 

by  the  points  (xj_2*  and  (^-l*  Yi_l)»  anc*  ^et: 

(2)  A-2x  + ®2y  + C2  = 0 be  the  equation  of  the  line  formed  by 
the  points  (x£_2»  Yi_2^  and  ^*1*  Yi)* 

From  the  equation  of  a straight  line  formed  by  two  points,  it 
can  be  determined  that  for  the  first  equation  (1)  we  have 

(Yi-1  " yi-2>  X “ fri-l  " ^-2)  Y + <*i-l  " xi-2)  Yi- 2 ‘ ^i-l-Yi_2) 

Xi-2>  = 0 • 

Therefore, 

A1  = Yi-1  " Yi- 2 
B 1 = xi-2  " *i-l 

Cl  = (*i-l  - Xi-2)  Yi-2  " (Yi-1  - Yi-2>  *L-1 
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j For  equation  (2),  we  can  determine  that: 

(Yi  “ Yi-2)  x - (xj  - xi_2)  y + (xi  - xi_2)  yi_2  - (yi  - yi_2)  xi_2)  =0. 

Therefore, 

a2  = Yi  " Yi-2 
B2  = xi-2  - xi 

C2  = <*i  “ *i-2)  Yi-2  " (Yi  - Yi-2)  xi_2  = 0 

Now:  TAN  ( 0 ) = Aj.B2  - A2  . Bj 

A. j • A2  *f  Bj  • B2 

and, 

0 = Arc  TAN  (Aj  • B2  - A2  . B2 
A1  * A2  + B1  * B2 

Given  that  a is  the  maximum  angle  of  delineation,  and  if 
& — a » then:  (x^j,  Yj_i)  *s  deleted. 

4.  Program  Constants  and  Variables 
ALPHA 

ICORDX 
ID 

DvLAXDT 

IMAXPT 

IMINDT 

IOPT 
IPTDLT 

I 


maximum  angle  at  delineation  allowed 
with  smooth  option  6. 

current  buffer  pointer  into  IXYZ 

computed  (square)  distance  between 
two  points 

maximum  distance  to  be  considered  as 
trace  data 

maximum  distance  (squared)  to  be  con- 
sidered as  trace  data 

minimum  distance  . or  closest  point 
tolerance 

smooth  option  plus  one 

cumulative  total  of  points  deleted  by 
SMOOTH 
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IPTPRS 


IPTPSS 

ISMOTH 

ISPPTS 

IX 

IX  YZ 
IY 

RADI 

RNINETY 

5.  Error  Conditions 
None. 


cumulative  total  of  points  processed  by 
SMOOTH 

cumulative  total  of  points  passed  by 
SMOOTH 

SMOOTH  option 

array  containing  the  special  point 
indexes 

differences  in  x coordinates 

two-dimensional  array  containing  x, y 
coordinate  points  with  distance  between 
two  successive  points 

differences  in  y coordinates 

0.017453  radians  for  one  degree 

1.570796  radians  for  ninety  degrees 
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-IOPT=7 


1000  T 

Do  1 from  second 
point  to  last 
point  in  buffer 


2 J Figure  III-18  SMOOTH  Process  Flow  (Page  2 of  20) 
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depending  on 
IOPT 


Incremented 
pointer  (K) 


Incremented 
sequential 
counter  (Kl) 


Move  distance 
and  X,  Y coordi- 
nates into  buffer 
at  location  Kl 


IOPT=l 


IOPT=2 


/ K greater^ 
han  number  o 


IOPT=3 
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^'^uistance'\^ 
less  than  minb 
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Figure  HI-18  SMOOTH  Process  Flow  (Page  5 of  20) 
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Figure  III-18  SMOOTH  Process  Flow  (Page  8 of  20) 
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Set  the  pointer 
in  the  special 
point  indicator 
buffer 


^✓'previousysj[ 
joint  a special 
. point  / 


Increment  the 
special  point 
pointer 


Increment 
pointers  into 
buffer  two  by 
minus  one 


Increment 
pointer  of  buffer 
two  (K) 


Move  previous 
point  into  buffer 
one  along  with 
computed  dis- 
tance 


Move  current 
point  of  buffer 
two  into  buffer 


Figure  III-18  SMOOTH  Process  Flow  (Page  9 of  20) 
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500  I 
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point  with  com- 
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buffer  one 


J 

Move  current 
point  with  com- 
puted distance 
(squared)  into 
buffer  one 


Figure  III-18  SMOOTH  Process  Flow  (Page  15  of  20) 
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Figure  IH-18  SMOOTH  Process  Flow  (Page  16  of  20) 
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R.  . BACKUP 

1 . Functional  Description 

As  a FORTRAN  subroutine,  BACKUP  determines  if 
the  third  point  backs  up  towards  the  first  point  by  testing  the 
differences  in  the  directional  vectors  in  the  x and  y.  If  the  third 
point  does  back  up,  it  is  deleted,  and  the  fourth  point  is  moved  into 
the  third  point's  position. 

2 . Computer  Definition 

a.  Core  Memory  Used 
303  octal*  words 

b.  Peripheral  Equipment 
None 

3.  Program  Description 

a.  Calling  Routines 

CASER 

SMOOTH 

b.  Subroutines  Used 
None 

c.  Input 

The  inputs  for  BACKUP  are  passed  through  the 

argument  list. 

1X1,  IY1 
1X2,  IY2 
1X3,  IY3 
1X4,  IY4 
N 
‘ N1 


coordinates  for  the  first  point 

- coordinates  for  the  second  point 

- coordinates  for  the  third  point 

- coordinates  for  the  fourth  point 

- index  for  the  third  point 

- index  for  the  fourth  point 
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d. 


Output 

The  outputs  for  BACKUP  are  passed  through  the  argument 

list. 

e.  Processing  Methodology 

With  the  four  data  points,  (1X1,  IY1),  (1X2,  IY2),  (1X3, 
IY3),  and  (1X4,  IY4),  from  the  argument  list',  BACKUP  will  first  determine 
the  directional  vector  ([SX1)  for  the  first  x coordinate  (1X1)  to  the  second 
x coordinate  (1X2}.  Secondly,  the  directional  vector  (ISX2)  will  be  deter- 
mined from  the  second  x coordinate  to  the  third  x coordinate  (1X3).  A 
test  is  then  made  to  determine  if  ISX1  equals  ISX2.  If  the  test  determines 
equality,  the  directional  vectors  1SY1  and  ISY2  are  determined  as 
described  above,  but  with  the  y coordinates.  The  equality  of  ISY1  and 
ISY2  will  result  in  a return  to  the  calling  routine.  With  nonequality  of 
ISY1  and  ISY2,  or  with  the  nonequality  of  ISX1  and  ISX2,  BACKUP  will 
proceed  in  the  following  fashion.  A test  is  performed  to  determine  if  the 
ISY3  (the  directional  vector  of  the  third  point  y coordinate  to  the  fourth 
point  y coordinate)  is  equal  to  ISY2.  Nonequality  of  ISY3  and  ISY2  results 
in  the  removal  of  the  third  point.  The  third  point  is  removed  by  moving 
the  fourth  point's  coordinate  into  the  third  point's  coordinate  location 
and  setting  the  fourth  index  equal  to  the  third's  index.  Equality  of  ISY3 
and  I3Y2  results  in  another  test  with  the  directional  vector  ISX3  (x  co- 
ordinate direction  from  second  point  to  thrid  point)  and  ISX2.  With 
equality  of  ISX2  and  ISX3,  BACKUP  returns  control  to  the  calling  routine, 
and  with  nonequality,  BACKUP  removes  the  third  point  by  replacing  it 
with  the  fourth  point  as  explained  above.  Control  is  then  returned  to  the 
calling  routine.  Refer  to  Figure  HI-19  for  the  process  flow  diagram  of 
BACKUP. 

f.  Calling  Sequence 

Call  BACKUP  (1X1 , IY1 , 1X2,  IY2,  1X3,  IY3,  1X4,  IY4, 

N,  N1 ). 
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Major  Algorithms 


Given  X. . as  the  directional  vector  from  the  x coordinate 
ij  * 


of  the  ith  point  to  the  x coordinate  of  the  j th  point,  such  that: 


-1 

if  x. 
J 

-x.  <0 

0 

if  X. 

- x.  = 0 

J 

+1 

if  x. 

- x.  -7  0 

J 

l 

ij 


Given  Y..  as  the  directional  vector  from  the  y coordinate  of  the  ith  point 
ij 

to  the  y coordinate  of  the  j th  point,  such  that: 


-1  if  y.  - y.  < 0 
J i 


If 


and 


Y. . 
ij 

= 

0 

if  y.  - y.  = 0 
3 1 

+1 

if  y.  - y.  > 0 

3 1 

*12 

i 

**23 

or 

Y12*"  Y23 

*34 

* Y23 

with 

Y23  * 

then  a backup  condition  occurs  and  (x^  y^)  is  deleted. 
If 

and 


*12**23  °r 


Y i-  Y 
1 1 2 * *23 


V 4 Y 

A23  * A34 


with 


*23  *o. 


then  a backup  condition  occurs  and  (x^»  y is  deleted. 
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Program  Constants  and  Variables 


N 

- 

index  of  the  third  point 

N1 

- 

index  of  the  fourth  point 

ISX1 

- 

directional  vector  in  the  x direction 
from  the  first  to  second  point 

1SX2 

- 

directional  vector  in  the  x direction 
from  the  second  to  third  point 

ISX3 

- 

directional  vector  in  the  x direction 
from  the  third  to  fourth  point 

ISY1 

- 

directional  vector  in  the  y direction 
from  the  first  to  second  point 

ISY2 

- 

directional  vector  in  the  y direction 
from  the  second  to  third  point 

ISY3 

- 

directional  vector  in  the  y direction 
from  the  third  to  fourth  point 

1X1,  IY1 

- 

coordinates  of  the  first  point 

1X2,  IY2 

- 

coordinates  of  the  second  point 

1X3,  IY3 

- 

coordinates  of  the  third  point 

1X4,  IY4 

- 

coordinates  of  the  fourth  point 

Error  Conditions 

None 

\ 
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! 

Arguments  y 

J"dc  1 , IY 1 -coordinates] 

' of  first  point  j 

1 1X2,  IY2  -coordinates! 
I of  second  point  | 

' DC3,  IY3  -coordinates1 
1 of  third  point  I 

i 1X4,  IY4-coordinates- 

. of  fourth  point 

1 | 
| N -index  to  third  ‘ 

I Poi“t 

I N1 -index  to  fourth  t 
I point 

! i 

l i 


Figure  III- 19  BACKUP  Process  Flow  (Page  1 of  4} 
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(return^) 


Figure  HI-  19  BACKUP  Process  Flow  (Page  4 of  4) 
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SIMBOL 


1 .  Functional  Description 

The  primary  task  of  the  symbol  piece  controller  subroutine 
SIMBOL  is  to  control  the  symbol  piece  generation  via  interaction  with 
symbol  piece  generation  subroutines  such  as  DASHER,  SPACE,  DOTTER, 
CIRCLE,  TICKER,  CASER,  ARROW,  CROSS,  SQUARE,  TRNGLE, 
PYRMID,  and  ARCORD. 


2.  Computer  Definition 

a.  Core  Memory  Used 
1667  octal  words. 

b.  Peripheral  Equipment 
None 

3.  Program  Description 

a.  Calling  Routines 
MONITOR. 

b.  Subroutines  Used 

DASHER 
SPACE 
DOTTER 
CIRCLE 

c.  Input 

Primary  input  consists  of  data  found  in  the  GLSS  blank 
common  area  (symbol  specification  directives)  and  (status  indicator  flags 
and  pointers).  The  process  control  information  is  located  in  blank  common 
area  (symbol  specification  directives),  FORTRAN  mnemonic  name 
ISYTP  (symbol  piece  type) whose  values  are  depicted  in  Table  HI-5. 


TICKER  SQUARE 

CASER  TRNGLE 

ARROW  PYRMID 

CROSS  ARCORD 
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SYMBOL  PIECE  TYPE  AND  ASSOCIATED  VALUES 

TABLE  HI- 5 


r 
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d.  Output 

Output  consists  mainly  o£  setting  or  resetting  of  various 
flags  and  pointers  located  in  blank  common  area  (symbol  specification 
directives  area).  The  primary  output,  mnemonic  name  ICURDX  (current 
index  pointer),  controls  the  retrieval  and  storage  of  symbol  piece  generation. 

e.  Processing  Methodology 

Figure  III- 20  depicts  the  process  flow  of  subroutine 
SIMBOL.  Upon  entry,  the  header  input  count  (mnemonic  IHEDIN)  is 
checked,  and  if  found  to  be  different  from  the  previously  stored  header 
count  (mnemonic  ITPHED),  all  SIMBOL  subroutine  flags  and  pointers 
are  reset.  The  symbol  piece  types  are  then  checked  for  certain  combi- 
nations with  the  appropriate  flags  being  set  or  reset.  These  combinations 
are:  line,  space,  and  tick  (mnemonic  ILSTK  being  set);  dash,  space, 
and  tick  (mnemonic  IDSTK  being  set);  dash,  space,  and  case  (menmonic 
ICSFLG  being  set);  arrow  (mnemonic  IARFLG  being  set)  when  an  arrow 
type  is  found.  If  the  input  header  count  and  the  previously  stored  header 
count  are  the  same,  subroutine  SIMBOL  call  back  flag  is  set  to  zero 
(ICLLBK).  If  the  symbol  piece  call  back  flag  is  set  (NUMCBK),  control 
is  passed  to  the  appropriate  subroutine.  If  the  flag  is  not  set,  the 
symbol  piece  index  pointer  (mnemonic  ISYDEX)  is  incremented  by  one 
and  checked  against  the  number  of  symbol  pieces  (NUMPEC).  If  ISYDEX 
is  found  to  be  greater  than  NUMPEC,  ISYDEX  is  set  to  one  or  two, 
depending  on  the  combination  of  flags  set  above.  The  symbol  piece  type 
numeric  * alue  is  then  used  for  transfer  to  the  appropriate  subroutine 
via  a FORTRAN  computed  GO  TO  statement.  If  the  symbol  piece  type 
numeric  value  is  one  (line),  the  symbol  ready  for  output  flag  (mnemonic 
ISYRDY)  is  set.  If  there  are  more  symbol  pieces,  the  SIMBOL  subroutine 
call  back  flag  is  set;  otherwise  it  is  cleared.  Control  is  then  returned 
to  the  calling  routine  MONITOR.  If  the  symbol  piece  type  numeric 
value  is  two  (dash),  process  control  is  passed  to  subroutine  DASHER 
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with  the  appropriate  current  index  buffer  pointer  value  set 
(mnemonic  ICURDX).  When  the  symbol  piece  type  value  is  three, 
subroutine  SPACE  is.  called  to  generate  a space  on  the  data  found  via 
the  current  index  buffer  pointer.  Upon  returning  from  SPACE,  control 
is  passed  to  the  above  mentioned  incrementing  of  the  symbol  piece 
index  (ISYDEX).  If  the  symbol  piece  type  value  is  four  (dot),  subroutine 
DOTTER  is  called  to  generate  a single  coordinate  point.  When  the 
symbol  piece  type  is  five  (circle),  symbol  generation  subroutine  CIRCLE 
is  executed.  If  the  symbol  piece  type  value  is  a six  (tick),  seven 
(half  tick),  or  eight  (alternating  half  tick),  subroutine  TICKER  is  called 
with  the  proper  current  index  pointer  value.  When  nine  (case)  is  found 
in  the  symbol  piece  type,  symbol  generator  subroutine  CASER  is 
performed  again  with  the  appropriate  current  index  buffer  value.  If  the 
symbol  piece  type  value  is  ten  (arrow)  or  eleven  (half  arrow),  symbol 
piece  generation  subroutine  ARROW  is  called.  If  the  symbol  piece  type 
is  twelve,  subroutine  CROSS  is  performed  generating  a cross  symbol. 

If  the  symbol  piece  type  is  thirteen  (SQUARE),  symbol  generator 
subroutine  SQUARE  is  executed.  If  the  symbol  piece  type  is  fourteen 
(TRIANGLE),  symbol  generator  subroutine  (TRNGLE)  is  performed. 

When  the  symbol  type  is  fifteen  (PYRMID)  subroutine  PYRMID  is  called 
to  generate  a pyramid  at  the  coordinate  value  input.  If  the  symbol  piece 
type  value  is  sixteen  (ARC  and  CORD)  subroutine  ARCORD  is  called  to 
generate  an  arc  cord  symbol.  Upon  returning  from  the  symbol  generation 
subroutines,  exception  SPACE  stated,  subroutine  SIMBOL's  call  back 
flag  is  set;  and  if  the  number  of  symbol  piece  call  back  (mnemonic 
NUMCBK)  is  set,  control  is  returned  to  the  calling  routine  MONITOR. 

If  the  tally  run  out  flag  for  buffer  number  one  (ITELRN  (1)  is  not  set, 
control  is  again  returned  to  MONITOR;  if  it  is  set,  and  the  feature 
continuation  flag  is  zero,  subroutine  SIMBOL's  call  back  flag  is  set  to 
zero  with  control  being  returned  to  MONITOR  for  the  last  time  for  the 
feature  in  question. 


f. 


r 


4. 


f.  Calling  Sequence 

Call  SIMBOL 

g.  Major  Algorithms 
None 

Program  Constants  and  Variables 

Program  variables  interrogated  by  SIMBOL  include: 


5. 


IHEDIN 

ITPHED 

ILSTK 

IDSTK 

ICSFLG 

LARFLG 

1CLLBK 

NUMCBK 

ISYDEX 

NUMPEC 

ISYRDY 

ICURDX 

ITELRN(l) 

Error  Conditions 
None 


feature  number  input 
temporary  feature  number 
symbol  types  line,  space,  tick  flag 
symbol  types  dash,  space,  tick  flag 
symbol  types  case  flag 
symbol  types  arrow  flag 
subroutine  SIMBOL  call  back  flag 
number  of  symbol  subroutine  call  backs 
symbol  piece  directive  index  pointer 
number  of  symbol  pieces 
symbol  ready  for  output  flag 
current  buffer  pointer  (1-5) 
tally  run  out  flag  for  buffer  one 
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SIMBOL  Process  Flow 

(Page  5 of  7) 
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Figure  III-20  - SIMBOL  Process  Flow 

(Page  7 of  7) 
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T. 


DASHER 


1 . Functional  Description 

Symbolization  subroutine  DASHER's  primary  processing 
tasks  are  to  generate  feature  symbology  of  dashes  and  spaces.  A dash 
symbol  is  a line  segment  of  given  length  that  physically  corresponds  to 
the  input  features  direction  and  orientation.  A space  is  simply  a null 
dash  for  the  given  length. 

2.  Computer  Definition 

a.  Core  Memory  Used 
3451  octal  words. 

b.  Peripheral  Equipment 
Not  applicable. 

3.  Program  Description 

a.  Calling  Routine 
SIMBOL 

b.  Subroutines  Used 

ABSPNT 

FINDPT 

SORT 

c.  Input 

Input  to  subroutine  DASHER  consists  of  data  found  in 
the  blank  common  areas:  feature  line  center  data,  symbol  specification 
directives,  status  indicators  flags  and  pointers,  and  process  tally 
summary  report  area. 

d.  Output 

Output  will  consist  of  a dash  symbol  coordinate  and 
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distance  data  stored  in  mnemonic  IXYZ  output  buffer.  It  will  also 
consist  of  status  indicator  flags  and  pointers  and  tally  summary 
report  data. 


e.  Processing  Methodology 

Upon  entry  to  subroutine  DASHER,  needed  flag  and 
pointers  are  cleared  and/or  set.  Figure  HI-21  depicts  the  process  flow 
of  DASHER.  The  "Dasher"  call  back  flag  is  interrogated  and  if  "false" 
normal  processing  is  continued.  The  "true"  discussion  of  the  call  back 
flag  wiU  be  described  below.  The  input  index  pointer  for  buffer  number  one 
is  saved  (IPTDX  (1 8 with  the  symbol  type  (ISYTPE)  being  interrogated. 

If  the  symbol  type  is  a space  (ISYTPE  = 3),  the  input  and  output  pointers 
are  saved  for  possible  use  later  in  the  program  (dashing  at  the  end  of  a 
feature).  The  symbol  size  (ISYSZ  (ISYDEX))  is  moved  into  menmonic 
name  ISIZE  with  the  distance  location  IDIST  being  cleared.  If  the 
symbol  type  is  a dash,  the  X,  Y coordinate  and  associated  distance 
are  placed  into  the  output  buffer  dictated  by  ICURDX.  The  number  of 
dashed  points  (NDSHPT)  and  number  of  points  (NPTS)  used  to  generate 
the  dash  in  question  are  then  incremented.  If  the  symbol  type  is  a space 
and  the  number  of  special  points  is  not  equal  to  zero,  subroutine 
ABSPNT  is  called  to  determine  if  the  coordinate  point  in  question  is  an 
absolute  point.  If  the  point  is  an  absolute  coordinate,  the  symbol 
piece  index  pointer  ISYDEX  is  decremented  by  one,  the  input  index 
pointer  is  reset  to  the  start  of  the  space  and  control  is  passed  to  the 
beginning  of  the  processing.  If  the  summed  distance  (IDIST)  is  less 
than  the  symbol  size  (ISIZE),  the  summed  distance  is  incremented 
by  the  next  distance  in  the  input  buffer.  The  input  index  pointer 
(IPTDX(l))  is  then  incremented  by  one  and  checked  against  the  number 
of  points  for  buffer  one  (NUMPTS(l)).  If  the  index  pointer  is  found  to 
be  greater  than  or  equal  to  the  number  of  points  in  buffer  one  and  the 
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feature  continuation  flag  is  set  (IFTCNT)  the  "dasher"  call  back  flag 
is  assigned  and  the  output  buffer  index  pointer  saved  (mnemonic  ISVPTX). 
If  the  smooth  option  is  two  or  greater,  the  coordinate  values  generated 
for  the  partial  dash  are  saved  (interval  buffer  ISXYZ)  and  process 
control  returned  to  the  calling  routine.  On  the  next  entry  to  DASHER, 
the  aforementioned  call  back  flag  is  interrogated  and  when  found  true 
it  is  reset  along  with  the  output  buffer  pointer.  If  the  smooth  option 
is  two  or  greater,  the  previously  saved  coordinate  values  are  moved 
to  blank  common  output  bufier  mnemonic  IXYZ.  If  the  index  pointer  is 
found  to  be  greater  than  or  equal  to  the  number  of  points  and  the  symbol 
type  in  question  is  a space,  the  input  and  output  index  pointers  (IPTDX(l) 
and  IPTDX  (ICURDX))  are  reset  with  the  last  of  the  feature  being  moved 
to  the  output  buffer.  The  symbol  ready  for  output  flag  is  set  along  with 
the  tally  run  out  flag  for  buffer  one  (ITELRN(l)).  The  number  of  points 
in  the  dash  are  then  moved  to  the  output  number  of  points  location, 
mnemonic  name  NUMPTS,  dictated  by  the  current  index  pointer  ICURDX. 
Process  control  is  then  returned  to  the  calling  routine  SIMBOL.  The 
above  process  is  repeated  until  the  summed  distance  (IDIST)  is  equal 
to  or  greater  than  the  symbol  piece  size  (ISIZE).  Subroutine  FINDPT 
is  then  called  to  calculate  the  intermediate  x,  y coordinate  and 
distance  generated  by  the  summed  distance  overrun.  This  point  and 
associated  distances  are  then  placed  into  the  input  and  output  buffers. 

If  the  symbol  type  (ISYTPE)  is  a dash,  the  symbol  directive  index 
(ISYDEX)  is  incremented  along  with  the  number  of  dashes  generated 
(NUMDSH).  Control  is  then  passed  to  the  start  of  the  processing  where 
the  space  symbol  is  generated.  If  the  symbol  type  is  a space  the 
symbol  ready  for  output  flag  (ISYRDY)  is  set  with  control  being  passed 
to  the  calling  routine  SIMBOL. 

f.  Calling  Sequence 
Call  DASHER 
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g.  Major  Algorithms 
None 


4.  Program  Constants  and  Variables 

Program  variables  interrogated  by  DASHER  include: 

ISYRDY  - Symbol  ready  for  output  flag 
ICURDX  - Current  buffer  pointer  (1-5) 

NUMPTS  (ICURDX)  - No.  of  points  in  buffer  ICURDX 
ISYTP  (ISYDEX)  - Symbol  types 

IXYZ  (N,  N)  - X,  Y Coordinate  and  distance  buffer 

ICORDX  (ICURDX)  - Starting  index  pointer  into  one  of 

the  five  IXYZ  buffers 

IPTDX  (N)  - Current  index  pointers 

ITELRN  (1)  - Tally  run  out  flags  for  buffer  one 

5.  Error  Conditions 

None 
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Set  "Dasher" 

Call  Back  Flag 
IPECLK 
(NUMCBK)  = 2 

'T  J 

; Clear  Symbol 
i Ready  for  Outpu: 
jlSYRDY  Set 
j Tally  Run  Out 
|ITELRN(1)  = 1 

T ~~ 

Save  Output 
Buffer  Pointer 
ISVPTX=IPTDX 
(ICURDX)  +1 


Save  X,  Y and 
Distances  in 
Temporary 
Buffer  Area 


Flow 


Figure  HI-21  - DASHER  Process^  (^RETURN 


(Page  4 of  5) 
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Figure  in-2 


T 


Move  Saved  X,  Y 
and  Distances 
l to  Output  Buffer 


1 - DASHER  Process  Flow 


(Page  5 of  5) 
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2. 


U.  Subroutine  ABSPNT 

1.  Functional  Description 

Subroutine  ABSPNT 1 s major  task  is  to  interrogate  and  report 
absolute  (special  point)  coordinate  point  determination.  An  absolute  point 
is  a coordinate  point  that  cannot  be  moved  or  deleted  so  not  to  alter  the 
characteristic  of  the  feature  or  feature  segment. 

Computer  Definition 

Core  Memory  Used 

55  octal  words 

Peripheral  Equipment 

Not  applicable 

Program  Description 

a.  Calling  Routines 

DASHER 
TICKER 

Subroutines  Used 


a. 


b. 


3. 


b. 


c. 


None 


Input 


The  input  consists  of  data  found  in  common  area  C2 
(feature  line  center  data),  namely  mnemonic  ISPPTS,  which  contains  index 
value  of  the  absolute  points  within  the  IXYZ  coordinate  buffer  and  the 
present  index  pointer  in  question. 

d.  Output 

The  sole  output  is  a flag  (mnemonic  IANS)  which  contains 
either  zero  (index  pointer  not  an  absolute  point)  or  one  (index  pointer  is 
at  an  absolute  point). 
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e. 


Processing  Methodology 

Figure  HI-22  depicts  the  process  flow  of  subroutine 
ABSPNT.  On  entry,  mnemonic  IANS  (flag  for  absolute  point)  is  cleared. 
The  input  index  value,  found  in  mnemonic  J,  is  compared  with  the  index 
values  found  in  buffer  ISPPTS.  If  a comparison  is  found,  IANS  is  set  to 
one.  If  a comparison  is  not  found,  process  control  is  returned  to  the 
calling  routine. 

f.  Calling  Sequence 

Call  ABSPNT  (J,  IANS) 

J - index  pointer  of  coordinate  in  question 

IANS  - set  to  one  when  index  pointer  value  (J) 

is  found  in  special  point  buffer  ISPPTS 

IANS  - set  to  zero  when  index  pointer  is  not 

found  in  buffer  ISPPTS 

g.  Major  Algorithms 

Not  applicable 

4.  Program  Constants  and  Variables 

ISPPTS  - buffer  containing  special  point  index 

values  found  in  IX YZ  buffer 

5.  Error  Conditions 

None 
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V. 


FINDPT 


1.  Functional  Description 

This  subroutine  generates  a point  in  between  two  points 
*iven  the  distance  between  the  two  points  and  the  required  distance  from  the 

first  point, 

2.  Computer  Definition 

a.  Core  Memory  Used 
76  octal  words. 

b.  Peripheral  Equipment 
None 

3.  Program  Description 

a.  Calling  Routines 

POINTS 

DASHER 

SPACER 

TICKER 

b.  Subroutines  Used 

i 

I 


X,  Y coordinates  for  first  point. 

X,  Y cooi'dinates  for  second  point. 

Distance  from  the  first  point  to 
second  point. 

Distance  from  the  first  point  to 
generated  point. 


X,  Y coordinates  for  generated  point 


None 

c.  Input 

1X1,  IY2 
1X2,  IY2 
ID 

ID1 

d.  Output 

IX,  IY 
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Processing  Methodolo 


This  subroutine,  FINDPT,  which  is  written  in  FOR- 
TRAN first  computes  the  ratio  (in  floating  point)  of  the  distance  from 
the  first  point  to  the  generated  point  to  the  distance  from  the  first  point 
to  the  second  point.  The  X,  Y coordinates  of  the  generated  point 
are  found  as  outlined  in  the  following  algorithm.  See  Figure  III- 23 
for  the  processing  flow  diagram. 

f.  Calling  Sequence 

Call  FINDPT  (IX,  IY,  1X1,  IY1,  1X2,  IY2,  ID,  ID1). 

' 

g.  Major  Algorithms 


^OP2(IX2,  IY2) 


^ID 


*P(IX,  IY) 


ID1  / 
s 

or" 

PjttXl,  IYl ) 


ID1  = distance  squared  from  point  P^  to  point  P. 

ID  = distance  squared  from  point  P^  to  point  P^. 

IX  = 1X1  + (1X2  - 1X1 ) * ID1/ID 

IY  = IYl  + (IY2  - IYl ) ‘ ID1/ID 


Program  Constants  and  Variables 
None 
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or  Conditions 


te 


m-  no 


As  a FORTRAN  subroutine,  POINTS  will  determine  two 
points  along  the  data  list  at  a specified  distance  from  a given  point. 


-• 


L 

h 

1 1 
F 

i 

I 
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2.  Computer  Definition 

a.  Core  Memory  Used 
460  octal  words. 

b.  Peripheral  Equipment 
None 

3.  Program  Description 

a.  Calling  Routines 

SLOPE 
TICKER 

b.  Subroutines  Used 
None 

c.  Inputs 

Inputs  to  the  subroutine  POINTS  consist  of  data  located 
in  common  areas  C2  (feature  line  contour  data)  and  C5  (parameters  and 
variables). 

d.  Outputs 

Outputs  for  the  subroutine  POINTS  are  the  variables 
contained  in  the  argument  list. 

e.  Processing  Methodology 

When  called  upon,  the  subroutine  POINTS  first 
initializes  the  appropriate  pointers  anc  counters.  POINTS  then  deter- 
mines where  the  current  point  is  located  in  IXYZ  buffer.  From  the 
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current  point,  POINTS  will  interpret  backwards  in  the  data  list  to  find 
the  first  point  (1X1,  IY1)  and  then  interpret  forward  in  the  data  list  to 
find  the  second  point  (1X2,  IY2).  After  finding  both  interpreted  points, 
POINTS  returns  control  to  the  calling  routine.  The  method  is  described 
in  the  processing  flow  diagram.  Figure  III-  24. 

f.  Calling  Sequence 

Call  POINTS  (1X1,  IY1 , 1X2,  IY2). 

g.  Major  Algorithms 
None 

4.  Program  Constants  and  Variables 
ICURDX 

NUMPTS(ICURDX)- 

ICORDX(ICURDX)-j 
IPTDX(ICURDX)  - 
IX  YZ 

IMAXDT 

IT 
M 

ISPDST 
IDH 

1X1,  IY1 
1X2,  IY2 

5.  Error  Conditions 
None 


current  buffer  pointer 

number  of  points  in  data  list  or 
current  buffer 

beginning  index  for  current  buffer 

index  to  the  current  pointer  pointer 

buffer  with  x,  y coordinate  points 
with  distance  between  successive 
pair 

maximum  distance  considered  as 
trace  data 

cumulated  distances 

last  point  index 

input  interpreted  distance 

half  of  interpreted  distance 

coordinates  for  first  interpreted 
point 

coordinates  for  second  interpreted 
point 
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Figure  III-  24  POINTS 
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Figure  III-  24  POINTS  Process  Flow  (Page  4 of  9) 
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Figure  III- 2 4 POINTS  Process  Flow  (Page  6 of  9) 
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Figure  III- 24  POINTS  Process  Flow  (Page  9 of  9) 
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X.  SPACE 

1 . Functional  Description 

The  primary  processing  task  of  subroutine  SPACE  is  to 
generate  a space  segment  along  a lineal  feature  data  string. 

2.  Computer  Definition 

a.  Core  Memory  Used 
202  octal  words. 

b.  Peripheral  Equipment 
Not  applicable 

3.  Program  Description 

a.  Calling  Routine 
SIMBOL 

b.  Subroutine  Used 
FINDPT 

c . Input 

Input  consists  of  data  and  flags  found  in  the  GLSS 
common  area  C2  {feature  line  center  data),  C3  (symbol  specification 
directives),  and  C5  (status  indicator  flags  and  pointers). 

d.  Output 

Output  consists  of  an  update  buffer  index  pointer 
(mnemonic  IPTDX)  directed  by  the  current  index  pointer  (ICURDX)  found 
in  common  C2  (feature  line  center  data). 

e.  Processing  Methodology 

Processing  flow  of  subroutine  SPACE  is  shown  in 
Figure  III- 25.  On  entry,  the  SPACE  continuation  variable  is  interrogated. 
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If  false,  the  symbol  ready  for  output  flag  (ISYRDY)  and  the  distance 
variable  (IDIST)  is  cleared.  The  symbol  size  is  extracted  for  its  respective 
location  (ISYSZ)  and  placed  in  mnemonic  ISIZE.  The  number  of  points 
processed  is  calculated  (NPTS)  and  checked  against  the  total  number  of 
points  in  the  buffer  specified  by  ICURDX  (current  index  points).  If  NPTS 
is  less  than  the  total  number  of  points  (NUMPTS  (ICURDX)  ),  the  distance 
(IDIST)  is  checked  against  the  space  size  (ISIZE).'  If  IDIST  is  less  than 
the  space  size  the  index  pointer  for  the  data  containing  the  input  coordinates, 
(IPTDX  (ICURDX)  ) is  incremented.  The  distance  variable  (IDIST)  is 
totaled  against  the  next  distance  in  the  IXYZ  buffer.  Control  is  then 
passed  to  the  above  mentioned  distance  and  points  processed  check. 

If  the  points  processed  is  greater  than  or  equal  to  the  total  number  of 
points  specified  via  ICURDX,  the  tally  run  out  flag  (ITELRN  (ICURDX)  ) 
is  set.  When  the  feature  continuation  flag  is  set  or  the  cxirrettt  index 
pointer  is  not  equal  to  one,  control  is  returned  to  the  calling  routine 
SIMBOL;  otherwise,  the  SPACE  continuation  flag  is  set  to  two,  symbol 
piece  index  pointer  is  saved  (ISAVPX),  and  control  is  returned  to  SIMBOL. 
Upon  re-entry,  the  symbol  piece  index  is  reset  with  process  control 
being  passed  to  the  aforementioned  distance  and  points  processed  checks. 
When  the  distance  calculation  is  greater  than  or  equal  to  the  space  size, 
an  intermediate  point  and  distance  is  generated  via  subroutine  FINDPT  and 
stored  in  the  IXYZ  buffer  with  control  being  returned  to  the  calling 
routine  SIMBOL. 

f.  Calling  Sequence 

Call  SPACE 

g.  Major  Algorithms 

See  subroutine  FINDPT  for  the  intermediate  point  and 
distance  calculation. 


Program  Constants  and  Variables 


IPTDX 

ICURDX 

ISYRDY 

1DIST 

ISYSZ 

ISIZE 

IX  YZ 


Error  Conditions 


current  index  pointer  specified  via 
ICURDX 


current  buffer  point 
symbol  ready  for  output 
distance  variable 

symbol  piece  size  directive  buffer 
symbol  piece  size  variable 


uuner  containing  tne  input  and  output 
of  the  coordinates  specified  bv  IPTDX 
(ICURDX) 


None 


./PointsS. 
■''processed? 
mo.  of  points 


Store  intermedi' 
ate  point  and  dis 
tance,  update 
current  pointer 
IPTDX 


Increment  num- 
ber of  points 
processed 
IPTDX(ICURDX) 
=+l 


Sum  distance 

IDIST=IDIST+ 

rXiTZ(3,H-l) 


RETURN 


Set  tally  runout 
flag  ITECRN 
(ICURDX) 


eatur^y 
''continued  or 
^current  buffer 


FINDPT 
Calculate  in- 
termediate 
point 


[RETURN 


Figure  III-25  SPACE  Process  Flow  (Page  2 of  3) 
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Reset  spaced 
continued  Ml=l, 
reset  symbol  in- 
dex 


Figure  III- 25  SPACE  Process  Flow  (Page  3 of  3) 
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DOTTER 


. Functional  Description 

The  purpose  of  subroutine  DOTTER  is  to  generate  a dot  symbol 
at  a given  coordinate  location. 

2.  Computer  Definition 

a.  Core  Memory  Used 
73  octal  words. 

b.  Peripheral  Equipment 


Not  applicable 
3.  Program  Description 


Calling  Routine 


None 

c.  Input 

The  input  consists  of  data  found  in  common  area 
C2  (feature  line  center  data  common  area)  and  C5  (status  indicators  flags 
and  pointers  common  area). 

d.  Output 

The  primary  output  is  a coordinate  point  stored  in  the 
output  buffer  (IXYZ)  directed  by  the  current  buffer  pointer  mnemonic 
ICURDX. 

e.  Processing  Methodology 

The  processing  flow  of  subroutine  DOTTER  is  depicted 
in  Figure  HI- 26,  On  entry,  needed  index  pointers  are  initialized,  and  the 
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dot  counter  is  incremented  (mnemonic  NUMDOT).  A single  coordinate 
point  is  extracted  from  the  input  buffer,  directed  via  buffer  one's  index 
pointer  (IPTDX(l)  ) and  stored  into  the  output  buffer,  directed  by  the 
starting  index  of  buffer  sub  ICURDX  (current  index  buffer  pointer) 
mnemonic  ICORDX  (ICURDX).  If  the  number  of  points  processed  in 
buffer  one  (the  first  950  coordinate  locations  of  the  buffer  IXYZ)  is  greater 
than  or  equal  to  the  number  of  points  in  buffer  one  (NUMPTS(l)  ),  the 
tally  run  flag  for  buffer  one  is  set  (ITELRN(l)  ).  The  symbol  ready  for 
output  flag  is  then  set  with  process  control  being  returned  to  the  calling 
routine  SIMBOL.. 


f-  Calling  Sequence 


Call  DOTTER 
g-  Major  Algorithms 


4. 


5. 


None 

Program  Constants  and  Variables 


ISYRDY 

ICURDX 

IPTDX 

ICORDX 

NUMDOT 
NUMPTS 
IT  E URN 

Error  Conditions 
None 


symbol  ready  for  output  flag 

current  index  buffer  pointer 

current  index  pointer  of  ICURDX 

starting  index  pointe4s  of  the  five  IXYZ 
buffers 

number  of  dots  generated 
number  of  points  in  each  buffer 
tally  run  out  flags 
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Z.  CIRCLE 

1 . Functional  Description 

As  a FORTRAN  subroutine,  CIRCLE  will  generate  a 
sequence  of  points  which,  when  connected,  will  resemble  the  special 
point  symbol  circle. 

2 . Computer  Definition 

a.  Core  Memory  Used 

614  octal  words.  v 

b.  Peripheral  Equipment 
None 

3.  Calling  Routines 
SIMBOL 

b.  Subroutines  Used 

SIN  _ 

COS 
A TAN 
SORT 

c.  Input  s 

Inputs  to  the  subroutine  CIRCLE  consist  of  data  located 
in  common  areas  C2  (feature  line  center  data,  C3  (symbol  specifi- 
cation directives),  C5  (status  indicators,  flags,  and  pointers),  and  C6 
(parameters  and  variables). 

d.  Outputs 

Outputs  consist  of  rectangular  coordinate  points  in  common 
area  C2,  and  also  consist  of  status  indicator  flags  and  tally  summary  re- 
port data  in  common  areas  C5  and  C7  respectively. 
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Processing  Methodology 

When  called  upon,  the  subroutine  CIRCLE  will 
locate  the  center  point  in  the  data  list  (IXYZ)  about  which  the  circle  is  to 
be  computed.  After  finding  the  center  point,  CIRCLE  calculates  the 
incremental  angle  ALPHA  (see  Section  g:  "Major  Algorithms").  CIRCLE 
then  finds  the  rectangular  coordinate  points  for  the  axis  of  the  circle. 
From  each  of  the  axis  points,  CIRCLE  then  increments  around,  in  a 
counter  clockwise  direction,  until  it  has  completed  90  degrees.  At  each 
increment,  CIRCLE  computes  four  rectangular  coordinate  points  (see 
Section  g:  Major  Algorithms)  and  enters  the  points  in  buffer  3 of  IXYZ. 
After  completion  of  the  circle  and  after  CIRCLE  sets  the  appropriate 
flags  and  indicators  to  output  the  coordinate  points,  control  is  returned 
to  the  calling  routine.  Refer  to  Figure  IH-27  for  the  process  flow  dia- 
gram of  CIRCLE. 

f.  Calling  Sequence 
Call  CIRCLE 

g.  Major  Algorithms 


QS  -length  of  cord 
RADI  - radius  of  cord 
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Using  the  distance  equation  and  the  equation. of  a circle  to  find  (x,  y)  with 
center  at  (0,  0): 

2 2 2 

1)  QS  = D + y 

2)  RADI2  = (RADI  - D)2  + y2 
Subtracting  equation  2)  from  1)  and  solving  for  d: 

d = QS2/2R 

To  find  y,  substitute  QS  /2R  for  D in  equation  1)  and  solve  for  y: 

y = (QS2  - (QS2/2R)  1/2 

and  solve  for  x: 


x = RADI  - D 

To  find  ALPHA  (the  incremental  angle): 

ALPHA  = ATAN(y/x) 

To  determine  the  number  of  increments  (NF)  per  quadrant: 

NF  = ir/ALPHA 

The  starting  index  for  each  of  the  quadrants  will  be: 

J = 1 for  quadrant  1 

K = NF  + 1 for  quadrant  2 

L = 2*NF  + 1 for  quadrant  3 

M = 3-NF  + 1 for  quadrant  4. 

Increment  from  the  beginning  of  each  quadrant  a full  ir/4  such  that: 
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i = 1 to  NF 


IC  = 

RADI  * COS  (i*ALPHA) 

IS  = 

RADI  * SIN  (i  * ALPHA) 

X. 

1 

= 

IX  + IC 

= 

IY  + IS 

*k+i 

= 

IX  - IS 

^k+i 

2 

IY  + IC 

XL+i 

= 

IX  - IC 

^L+i 

= 

IY  - IS 

x 


IX  + IS 


4. 


Program  Constants  and  Variables 


NUMPTS(3) 

- 

number  of  points  that  generate  the 
circle 

ICORDX 

- 

array  containing  the  beginning  index 
for  the  five  buffers  in  IXYZ 

ICURDX 

- 

current  buffer  pointer 

IPTDX(ICURDX) 

- 

point  to  current  point 

IX  YZ 

- 

buffer  containing  x,  y coordinate 
points 

ISYDEX 

- 

index  into  the  symbol  specification 
directives 

ISYSZ(ISYDEX) 

- 

size  of  circle  (length  of  diameter) 

ISYRDY 

- 

symbol  piece  ready  for  output  flag 

NUMCIR 

- 

number  of  circles  generated 

IX 

- 

x coordinate  for  center  point 

IY 

- 

y coordinate  for  center  point 

ALPHA 

- 

incremental  angle 

ITELRN 

- 

at  the  last  data  flag 

J 

- 

counter  for  1 st  quadrant  of  circle 

K 

- 

counter  for  2nd  quadrant  of  circle 

L 

- 

counter  for  3rd  quadrant  of  circle 

M 

- 

counter  for  4th  quadrant  of  circle 

QS 

- 

length  of  cord  segment  (20.0) 

IC 

- 

directional  distance  of  cosine 

IS 

- 

directional  distance  of  sin 

Error  Conditions 

None 
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Set  flags, 
pointers,  and 
counters  for 
output 


? NUMCIR, 
ITFLRN, 
ICURDX, 
ISYRDY, 
i NUMPTS 


Figure  111-27  CIRCLE  Process  Flow  (Page  2 of  2) 


III-198 


AA.  Subroutine  TICKER 


1 . Functional  Description 

Symbolization  subroutine  TICKER'S  major  processing  tasks 
are  to  generate  feature  symbology  of  full  tick  marks  and  half  tick  marks 
along  a given  input  feature.  A full  tick  mark  is  a straight  line  of  short 
length  that  intersects  a feature  line  segment  at  perpendicular  angles  and 
is  also  equal  distant  on  each  side  of  the  feature  line  segment.  A half  tick 
mark  is  only  one  side  of  the  full  tick  mark  and  also  intersects  the  line 
segment  at  a perpendicular  angle. 

2.  Computer  Definition 

a.  Core*  Memory  Used 
706  octal  words. 

b.  Peripheral  Equipment 
Not  Applicable 

3.  Program  Description 

a.  Calling  Routine 
SIMBOL 

b.  Subroutines  Used 

POINTS 

ABSPNT 

SQRT 

c.  Input 

Primary  input  consists  of  data  found  in  the  GLSS  common 
area  C2  (feature  line  center  data),  C3  (symbol  specification  directives), 

C5  (status  indicator  flags  and  pointers),  and  C7  (process  tally  summary 
report). 


Ill- 199 


d.  Output 


Output  consists  of  tick  symbol  coordinate  points  stored 
in  the  output  buffer  (mnemonic  IXYZ)  directed  by  the  current  index  pointer 
(mnemonic  ICURDX).  Other  output  consists  of  setting  or  resetting  of 
various  flags  and  pointers  located  in  common  area  C5  (status  indicator 
flags  and  pointers),  and  C7  (process  tally  summary  report). 


e.  Processing  Methodology 


Processing  flow  of  subroutine  TICKER  is  depicted  in 
Figure  III-28.  Upon  entry,  a new  feature  check  is  performed,  and  if  found 
true,  the  new  feature  number  is  saved  (menmonic  ITPHED).  A double 
tick  symbology  check  is  then  made  with  mnemonic  IDBLTK  being  set  if 
double  tick  symbology  is  to  be  performed.  The  symbol  type  (ISYTPE) 
and  symbol  size  (ISIZE)  are  extracted  from  their  respective  symbol 
specification  areas  (Common  C3).  Subroutine  POINTS  is  then  called  to 
interpolate  over  a user  input  slope  distance  (mnemonic  ISPDST).  Sub- 
routine TICKER  then  calculates  an  approximate  slope  distance  using  x,  y 
coordinate  value  supplied  to  it  via  the  above  routine.  If  the  double  tick 
symbology  flag  is  set  and  the  symbol  index  pointer  (ISYDEX)  is  five 
(second  tick),  the  above  slope  distance  calculation  is  skipped.  If  the 
symbol  type  is  a half  tick  or  alternating  half  tick,  the  symbol  size  is 
halved.  The  appropriate  tick  symbology  (tick,  half  tick,  or  alternating 
half  tick)  x,  y coordinates  are  then  calculated  with  the  resultant  being 
stored  in  the  output  buffer  specified  by  the  current  index  pointer  ICURDX. 
The  tick  counter  is  then  incremented  by  one  (menmonic  NUMTKS)  with  the 
symbol  ready  for  output  flag  being  set  (ISYRDY).  Process  control  is 
returned  to  the  calling  subroutine  SIMBOL. 


f.  Calling  Sequence 
Call  TICKER 
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Major  Algorithms 


Tj  (IXYZ(1, 1),  IXYZ(2, 1)  ) 


Pj(IXl,  IY1) 


^ P2(IX2,  IY2) 


P0(IX,  IY) 


T2(IXYZ(U+U  1XYZ  (2,1+1)  ) 


DIST 

= 

distance  from  point  P^  to  point  P2 

DIST 

= 

SORT  (FLOAT  ( (IX2-IX1)**2  + 
(1X2  -IX1)**2)  ) . 

1SIZE2 

— 

distance  or  length  of  tick  (one  half  of 
ISIZE  for  half  tick  or  alternating  half 
tick) 

SZDDT 

= 

slope  of  perpendicular  bisect 

SZDDT 

= 

FLOAT  (ISIZE2)  / DIST 

JX,  JY 

= 

perpendicular  bisect  translation 
distances 

JX 

= 

(1X1  - 1X2)  * SZDDT 

JY 

= 

(IY2  - IY1)  * SZDDT 

IX,  IY 

= 

point  at  which  tick  symbol  is  to  be 
placed 

IX  YZ  (1, 

I) 

= 

IX  - JY 

IX YZ  (2, 

I) 

= 

IY  - JX 

IX YZ  (1, 

I+l)  = 

IX  + JY 

IX YZ  (2,  1+1 ) = 

IY  + JX 

4.  Program  Constants  and  Variables 
See  Common  Areas  Cl  - C7. 
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Error  Conditions 


When  subroutine  TICKER  encounters  feature  symbology  of 
half  tick  and  no  left  - right  property  code  is  found  (mnemonic  LRCODE), 
and  error  message  is  placed  in  the  text  error  buffer  ITXERR.  The 
error  message  is  as  follows: 

TICKER  ERROR -HTICK  NO  LEFT-RIGHT  PROPERTY  CODE. 
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Subroutine  TICKER 


■ 

I Purpose:  to  generate 
• feature  symbology  of  I 
full  ticks , half  ticks  and( 
ticks . , 

Input:  feature  line  cen’-j 
ter  data,  symbol  specifi- 
cation directives,  status| 
indicator  flags  and  point: 
ers,  and  feature  de- 
scriptor data  located  in 
their  respective  commcn 
data  buffers.  I 


| Output:  symbol  piece  of 
a full  tick,  half  tick  or 
I alternating  half  tick, 

I store  in  the  proper  out- 
put buffer  via  index 
1 pointer  ICURDX 


New 


eature  inpu 


Save  new  feature 


number  ITPHED 


Clear  double  tic 


flag  IDBL.TK 


Number 


of  symbol  pie 


es  less  th 


\ 3 


ouble 


Lck  symbolog 


Set  double  tick 


symbology 


IDBL.TK 


Figure  Ifl-28  - TICKER  Process  Flow 

(Page  1 of  4) 


Move  symbol 
size  ISIZE  to 
ISIZE2 


Calculate  offset 
coordinate  point 
( JX,  JY) 


Figure  111-28  - TICKER  Process  Flow 

(Page  2 of  4) 
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BB.  CASER 


1 . Functional  Description 

As  a FORTRAN  subroutine,  CASER  processes  a collection 
of  rectangular  coordinate  points  of  feature  line  center  data  which  pro- 
duces two  parallel  lines  (cased  road)  about  the  center  line. 

2.  Computer  Definition 

a.  Core  Memory  Used 
2566  octal  words. 

b.  Peripheral  Equipment 
None 

3.  Program  Description 

a.  Calling  Routine 
SIMBOL 

b.  Subroutines  Used 

BAKOVE 

CASPOT 

BACKUP 

CPDIST 

CASEIT 

CASEST 

c.  Input 

Data  as  inputs  to  the  subroutine  CASER  are  received 
through  the  common  areas  C2  (feature  line  center),  C3  (symbol 
specification  directives),  C5  (status  indicators,  flags  and  pointers), 
and  C6  (parameters  and  variables). 
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d.  Output 

Data  as  output  include  rectangular  data  points  which 
are  passed  in  common  area  C2.  Also,  outputs  include  status 
indicator  flags  and  tally  summary  report  data  in  common  areas 
C5  and  C7, respectively. 

e.  Processing  Methodology 

Upon  entry  to  the  subroutine  CASER,  decisions  are 
made  to  determine  the  status  of  the  input  data,  that  is,  tests  are  made  to 
see  if  the  internal  flags  JCONT  (casing  is  to  continue  after  output)  and 
JCALL  (CASER  was  called  back  to  output  second  side)  are  set.  If  either 
of  the  two  flags  (JCONT  and  JCALL)  are  set,  CASER  will  proceed  ac- 
cordingly to  satisfy  the  status  flag.  If  the  above  two  flags  are  not  set, 
a test  is  made  to  determine  if  the  total  number  of  data  points  of  the  cen- 
ter line  feature  is  greater  than  one.  Any  data  less  than  or  equal  to  one 
presents  an  error  condition  which  is  sent  back  to  the  calling  routine  with- 
out any  processing  on  the  data..  If  there  is  no  error  condition,  processing 
continues  with  initializing  the  data  pointers  and  status  flags  (IBELL,  ICASE, 
NCL,  NCR,  NCL1,  NCR1,  NPTS,  NF,  NF1,  KL,  KR).  The  size  of  half 
case  length  is  determined  by  interrogating  the  common  area  C3  for  the 
case  size  (ISYSZ  (ISYDEX)).  A test  is  then  made  to  determine  if  only  two 
pomts  make  up  the  center  line  feature,  thus  requiring  casing  only  at  the 
two  end  points.  A test  is  then  made  to  determine  if  the  first  two  points 
are  point-point.  Thus,  CASER  will  call  CASPOT  to  case  the  first  point 
of  the  feature. 

Basically,  CASER  continues  casing,  using  the 
following  iteration.  CASER  will  increment  (NF)  through  the  data  testing 
each  distance  to  determine  data  which  is  defined  to  be  point-point.  For 
each  increment  in  the  data  (trace)  which  is  not  point-point,  CASER  calls 
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CASEIT  followed  by  BACKUP  and  CPDIST,  or  if  the  flag  ICASE  is  set, 
BAKOVE  is  called.  For  point-point  data,  CASER  calls  CASPOT 
followed  by  calls  to  BAKOVE,  then  sets  the  flag  ICASE.  With  each 
call  to  CASEIT  and  CASPOT,  the  left  code  of  the  case  is  stored  in 
buffer  three,  while  the  right  hand  side  of  the  case  is  stored  in  buffer 
four.  CASER  will  perform  the  above  iteration  until  either  the  input 
feature  is  cased  or  until  buffers  three  or  four  are  filled. 

On  the  completion  of  casing  the  feature,  CASER  will 
set  the  appropriate  status  flags  and  update  the  summary  tallies.  CASER 
will  return  control  to  the  calling  routine  to  output  the  left  side,  but 
CASER  will  request  that  control  be  returned  so  that  the  right  side  will 
be  output. 

If  buffer  three  or  buffer  four  have  been  filled,  CASER 
will  output  the  third  buffer  then  the  fourth,  then  CASER  will  request  control 
to  be  returned  to  it.  When  control  is  returned  after  outputting  the 
fourth  buffer,  CASER  will  continue  to  case  as  described  above.  Refer 
to  Figure  IH-29  for  the  process  flow  diagram. 

f.  Calling  Sequence 
CALL  CASER 

‘ 

g.  Major  Algorithms 
Refer  to  the  algorithms  described  in: 


CASEST 

CASEIT 

CASPOT 

BACKUP 

BAKOVE 

CPDIST 
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4.  Program  Constants  and  Variables 


IBELL 

- 

variable  containing  current  input 
buffer  pointer 

ICASE 

- 

flag  giving  status  of  point -point  casing 

0 - previous  was  true  data 

1 - previous  was  point-point  data 

2 - previous  was  point -point  data 

followed  by  trace  data 

ICASEPT 

- 

flag  giving  status  of  first  four  casing 
points 

0 - no  point-point  data 

1 - contained  point -point  data 

ICORDX 

- 

array  giving  the  beginning  index  for 
the  five  buffers  in  IXYZ 

ICURDX 

- 

pointer  of  the  current  buffer  of  IXYZ 

ID 

- 

calculated  distance  between  two  case 
points 

IMAXDT 

- 

maximum  distance  to  be  considered 
trace  data 

IMINDT 

- 

minimum  distance  between  two  points 
which  is  accepted 

IPECLK 

- 

symbol  piece  call  back  flag 

IS  YD  EX 

- 

current  symbol  piece  pointer 

ISYRDY 

- 

symbol  ready  for  output  flag 

ISYTP(ISYDEX) 

- 

size  of  case 

ITELRN 

- 

tally  run  out  flag,  i.  e.  , reach  the 
last  point  at  the  end  of  current  buffer 

ITXERR 

- 

array  containing  error  text  messages 

IXYZ 

- 

two  dimension  array  containing  x,  y 
coordinates  of  both  input  and  output  data 

JCALLi 

- 

internal  flag  to  CASER  to  output  second 
side 

JCONT 

— 

internal  flag  to  CASER  telling  CASER 
to  continue  casing  after  output  upon 
reentry. 

1 
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. NCL 


NCL1 

NCL2 

NCLM1 

NCLM2 

NCR 

NCR1 

NCR2 

NCRM1 

NCRM2 

NF 

NF1 

5.  Error  Conditions 


current  pointer  into  IXYZ  for  left 
side  of  case 

NCL  + 1 

NCL  + 2 

NCL  - 1 

NCL  - 2 

current  pointer  into  IXYZ  for  right 
side  of  case 

NCR  + 1 

NCR  + 2 

NCR  - 1 

NCR  - 2 

current  pointer  at  the  center  line  data 
in  IXYZ  buffer  to  be  cased 

NF  + 1 


CASER  will  set  the  error  flag  and  enter  the  following  message 
into  the  error  text  location  (ITXERR)  if  only  one  point  has  been  input  to 
be  cased. 


NO  DATA  OR  ONLY  ONE  DATA  POINT  TO  BE  CASE. 
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Figure  111-29  - CASER  Process  Flow 

(Page  4 of  8) 
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Set  call  back 
flag  (IPECLK) 


Set  casing  con- 
tinuation flag 
off  (JCAL.L) 


Reset  counters 
and  pointers 
for  case 


RETURN 


Move  the  last 
3 points  of  each 
side  of  case  to 
start  another 
segment 


72  A 

yia\ 

^^asing 
'c  ontinuation 
\flag  on  . 

(CAyZ 

YNo 


Set  pointers  and 
counters  to  out- 
put 2nd  side  of 
case  with  the  con 
dition  that  casing 


Set  casing  con- 
tinuation flag  on 
(JCALLi) 


RETURN)  Figure  1H-29 


HI-217 


CASER  Process  Flow 

(Page  6 of  8) 


Increment 
pointers  for 
case 


/ pr  evious 
''case  pt.  -pt. 
\flag  GE2 


Increment  pre- 
vious case 
point-point  flag 


Update  pointers 
for  case 


.xJJoes^^ 
^''feature  corS^ 
^ain  only  2 pts- 


36 

Reset  case 
ooint-point  flag 
(ICASE) 


Increment 
pointers  into 
case 


Find  differences 
in  X and  Y for 
one  side  of  case 
with  distance 
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CC.  BAKOVE 


1 . Functional  Description 

Asa  FORTRAN  subroutine,  BAKOVE  determines  if  two 
lines,  each  defined  by  two  points,  intercept.  If  the  two  lines  intercept, 
BAKOVE  computes  the  intercept  point  and  deletes  the  adjoining  points. 
If  the  flag  ICASE  is  set  and  BAKOVE  determines  that  there  is  not 
an  interception  as  stated  above,  then  BAKOVE  determines  if  the  points 
back  up,  and  deletes  the  points  which  do  back  up. 

2.  Computer  Definition 

a.  Core  Memory  Used 
652  octal  words. 

b.  Peripheral  Equipment 
None 

3.  Program  Description 

a.  Calling  Routines 
CASER 

b.  Subroutines  Used 
None 


Input 

Inputs  are  received  through  the  argument  list. 


I XI,  IY1 
1X2,  IY2 
1X3,  IY3 
1X4,  IY4 
N 
N1 


- x,  y coordinates  for  the  first  point 

- x,  y coordinates  for  the  second  point 

- x,  y coordinates  for  the  third  point 

- x,  y coordinates  for  the  fourth  point 

- index  of  the  third  point 

- index  of  the  fourth  point 
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ICASE 


- flag  indicating  if  BAKOVE  is  to  test  for 
points  that  back  up,  if  no  interception; 
if  ICASE  = 1,  test 
if  ICASE  ^ 1,  no  test  is  to  be  done 

d.  Output 

Outputs  are  returned  through  the  argument  list.  If 
BAKOVE  finds  an  intercept  point,  the  coordinates  of  that  point  are 
entered  into  the  coordinates  of  the  second  point  (1X2,  IY 2),  and  the 
coordinates  of  the  fourth  point  (1X4,  IY4)  are  moved  into  the  coordinates 
of  the  third  point  (1X3,  IY3),  which  in  effect  deletes  the  third  point.  To 
tell  the  calling  roiiine  that  an  intercept  point  was  computed,  the  index 
of  the  fourth  point  (Nl)  is  set  equal  to  the  index  of  the  third  point  (N). 

e.  Processing  Methodology 

As  a subroutine,  BAKOVE,  when  called  upon,  will 
first  determine  whether  the  flag  ICASE  is  on  or  off  (1  or  0 respectively). 
If  ICASE  is  on,  BAKOVE  proceeds  with  finding  the  intercept  point,  as 
described  below.  If  ICASE  is  off,  BAKOVE  will  determine  the  possibility 
of  an  interception  by  looking  at  the  four  points  which  are  received 
through  the  argument  list  as  three  separate  lines.  A comparison  of 
distances  is  made  to  determine  if  there  is  a shorter  route  (distance) 
from  the  first  point  to  the  last  point,  rather  than  following  the  four 
points  in  order  (see  the  following  algorithm).  If  a shorter  route  is  not 
determined,  BAKOVE  returns  control  to  the  calling  roitine.  If  a shorter 
distance  was  found  or  ICASE  is  off,  BAKOVE  continues  with  finding  the 
intercept  point  (IX,  IY)  (refer  to  the  following  algorithm).  After  finding 
the  intercept  point,  BAKOVE  moves  the  coordinates  of  the  intercept 
point  and  the  coordinates  of  the  fourth  point  into  the  location  of  the 
coordinates  of  the  second  and  third  point  respectively.  The  index  of  the 
fourth  point  (Nl)  is  reduced  to  the  index  of  the  third  point(N).  The  above, 
in  fact,  removes  the  adjoining  points  and  inserts  the  intercept  point. 
Control  is  then  returned  to  the  calling  routine.  Refer  to  Figure  IH-30 
for  the  process  flow  diagram. 
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f.  Calling  Sequence 

Call  BAKOVE  (1X1  • IY1,  1X2,  1Y2,  1X3,  1Y3,  1X4, 

IY4,  IDVAL,  N,  Nl,  ICASE). 

g.  Major  Algorithms 

The  following  tests  determine  the  existence  of  a relative 

intercept  point. 

Let  d. . = distance  from  point  i to  point  j. 
ij 

For  ICASE  = 0, 


or 


d14  ^ d34 


d24<d34- 
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the  following  must  be  satisfied. 


d13  < d12 
or 

d14<d12‘ 

If  either  of  the  two  cases  above  are  satisfied,  then  the  following 
condition  must  also  be  satisfied. 

Let  IS1  be  the  sign  of  the  slope  from  the  first  point  (x^,  y^) 
to  the  second  point  (x^,  y3)» 

and 

let  IS2  be  the  sign  of  the  slope  from  the  third  point  (x^,  y^) 
to  the  fourth  point  (x^,  y^). 

If  IS1  £ IS2,  a relative  intercept  point  exists. 

Now  the  intercept  can  be  found  by  solving  the  simultaneous 
equations  for  x and  y. 

y = mjX  + bj 
y = m2x  + b2 

where 

mr  (y2"yi}  7 (x2"xi} 

m2=  (y4'  y3}  ' (X4  ‘ X3} 

and 

bl  = Yl  - mj  • Xj 

b2  = y3  - m2  • x3 

4.  Program  Constants  and  Variables 

3 Y intercept  of  the  first  line 

Bl  - Y intercept  of  the  second  line 

ICASE  - flag  defining  location  of  intercept 

point 
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IDAR 

- 

distance  for  testing 

IDAR1 

- 

second  distance  for  testing 

IDV'AL 

- 

distance  received  from  calling  routine 

IS1 

- 

the  sign  of  the  slope  for  the  first  line 

IS2 

- 

the  sign  of  the  slope  for  the  second  line 

IX,  IY 

- 

coordinates  for  the  intercept  point 

1X1,  IY1 

- 

coordinates  of  the  first  point  received 
from  the  calling  routine 

1X2,  IY2 

- 

coordinates  of  the  seccnd  point  re- 
ceived from  the  calling  routine 

1X3,  IY3 

- 

coordinates  of  the  third  point  re- 
ceived from  the  calling  routine 

1X4,  IY4 

- 

coordinates  of  tne  fourth  point  re- 
ceived from  the  calling  routine 

N 

- 

index  for  the  third  point 

N1 

- 

index  for  the  fourth  point 

SLOPE 

- 

slope  of  the  first  line 

SLOPE 1 

- 

slope  of  the  second  line 

Error  Conditions 

None 
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.Arguments, 

Inputs: 

1X1 , IY2  - coordinates 
of  first  point.  I 

1X2,  IY2  - coordinatjes 
of  second  point. 

1X3,  iY3  - coordinatjes 
of  third  point. 

1X4,  IY4  - coordinates 
of  fourth  point.  I 

IDVAL  - distance 
(squared)  between 
the  third  and  fourth  | 
point.  . 

* N - index  to  the 
| third  point.  j 

N1  - index  to  the 
I fourth  point. 

I ICASE  - parameter  | 
to  tell  subroutine 
i what  point  distance  I 
I to  compare  to  test  | 
for  cross  lines. 


ICASE 


equal  to  one 


Find  the  distance 


from  the  first 


to  fourth  point 


(IDAR1) 


CASE 


equal  to  zero 


Find  distance 
from  the  second 
point  to  the  fourtl 
point  (IDAR) 


Find  distance 
from  first  to 
third  point 
(IDVAL) 


Figure  IH-30  . BAKOVE  Process  Flow  V 
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r 


Determine  the 
sign  of  the  slope 
formed  by  the 
first  and  second 
point  (IS1 ) 


Figure  III-30  - BAKOVE  Process  Flow 

(Page  Z of  6) 
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2 t 

Set  the  X coordi- 
nate of  the  inter- 
cept to  equal  the 
X coordinate  of 
the  third  point 

cix=mj 


Compute  the  Y 
coordinate  of  the 
intercept  point 
(IY) 


Figure  III-30  - BAKOVE  Process  Flow 

(Page  4 of  6) 
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59 

Set  the  second 
Y coordinate  to 
the  Y coordinate 
of  the  intercept 
point  (IY) 


Figure  III-30  - BAKOVE  Process  Flow 

(Page  5 of  6) 
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Figure  IU-30  - BAKOVE  Process  Flow 

(Page  6 of  6) 


III-230 


DD.  CASEST 


1*  Functional  Description 

As  a subroutine^  CASEST  computes  two  points  on  a perpen- 
dicular line  to  a line  segment,  through  one  of  its  endpoints. 

2.  Computer  Definition 

a.  Core  Memory  Used 
227  octal  words. 

b.  Peripheral  Equipment 
None 

3.  Program  Description 


a. 

Calling  Routines 
CASER 

b. 

Subroutines  Used 
None 

c. 

Input 

1X1 , IY1 

coordinates  of  the  first  endpoint. 

1X2,  IY2 

coordinates  of  the  second  endpoint 

ID 

distance  between  the  endpoints. 

IHC 

distance  on  the  perpendicular. 

M 

pointer  to  endpoint  to  be  offset; 
if  M=l,  for  the  first  endpoint,  and 
if  M=2,  for  the  second  endpoint. 

d. 

Output 

IXL,  IYL  - 

coordinates  of  the  left  justified 
point  on  the  perpendicular. 

IXR,  IYR  - 

coordinates  of  the  right  justified 
point  on  the  perpendicular. 

UI-231 


e. 


Processing  Methodology 

As  a FORTRAN  subroutine,  CASES T,  when  called,  will 
first  compute  the  perpendicular  line  to  the  line  segment  defined  by  the 
two  points  { {I  XI,  IY1 ),  (1X2,  IY2)  ) supplied  by  the  calling  routine.  A test 
is  then  made  to  determine  at  which  point,  the  first  or  the  second  end- 
point, the  perpendicular  should  be  passed  through  by  investigating  the 
input  variable  M for  1 or  2.  At  the  determined  point,  CASEST  then 
computes  the  coordinates  (IXL,  IYL)  of  the  left  justified  point  and  the 
coordinates  (IXR,  IYR)  of  the  right  justified  point  to  the  line  segment  at 
a distance  of  IHC.  After  computing  the  left  and  right  justified  points, 
CASEST  returns  control  to  the  calling  routine.  See  Figure  HI-3  1 for 
the  processing  flow  diagram. 

f.  Calling  Sequence 

Call  CASEST  (M,  1X1 , 1X2,  IY1,  IY2,  ID,  IXL,  IYL, 

IXR,  IYR,  IHC). 

g.  Major  Algorithms 

The  algorithm  used  in  CASEST  is  the  same  as  described 
in  CASPOT  (Sec.  IH-GG),  except  that  only  one  pair  of  coordinate  points 
are  generated  at  either  point  one  or  two. 

4.  Program  Constants  and  Variables 
None 

5.  Error  Conditions 
None 
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Inputs:  ~J 

, 1X1,  IY1  -coordinates  of  . 
i first  endpoint  I 

I 1X2,  IY2 -coordinates  of  I 
' second  endpoint 

. ID  - distance  between  end-) 
I points 

I IHC -distance  from  end-  I 
point  to  the  offset  i 
point  I 

I M - pointer  to  the  endpoint! 
to  be  offset 

jOutputs: 

IXJL,  IYL-coordinates  of  I 


| the  left  justified 

* offset  point 

I IXR,  IYR-coordinates  of  I 

, the  right  justified  , 

i______offset  jooint  i 


Figure  III-31  - CASEST  Process  Flow 
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Figure  III -3 


Compute  right 
justified  point 
at  second  point 
(IXR,  IYJR) 


c 


Return 


3 


1 - CAS EST  Process  Flow 

(Page  2 of  Z) 
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EE.  CASEIT 


1.  Functional  Description 

As  a subroutine,  CASEIT  computes  two  opposite  points  on 
a perpendicular  bisect  of  a line  segment  defined  by  the  endpoints. 

2.  Computer  Definition 

a.  Core  Memory  Used 
1 50  octal  words. 

b.  Peripheral  Equipment 
None 

3.  Program  Description 


a. 

Calling  Routines 
CASER 

b. 

Subroutines  Used 
None 

- 

c. 

Input 

1X1,  IY1 

coordinates  of  the  first  endpoint. 

1X2,  IY2 

coordinates  of  the  second  endpoint. 

ID 

distance  (squared)  between  the 
endpoints. 

IHC 

distance  on  the  perpendicular 
bisect  from  the  line  segment  to 
each  of  the  computed  points. 

d. 

Output 

IXL,  IYL  - 

coordinates  of  the  left  justified 
point  on  the  perpendicular  bisect. 

IXR,  IYR  - 

coordinates  of  the  right  justified 
point  on  the  perpendicular  bisect. 
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e. 


Processing  Methodology 

As  a FORTRAN  subroutine,  CASEIT,  when  called,  will 
iirst  compute  the  coordinates  (IXM,  IYM)  of  the  midpoint  between  the 
endpoints  { (1X1,  IY1),  (1X2,  IY2)  ) supplied  by  the  calling  routine.  After 
computing  the  midpoint,  CASEIT  calculates  the  perpendicular  bisect  from 
which  the  coordinates  of  the  left  (IXL,  IYL)  and  the  right  ([XR.  IYR)  justified 
points  are  determined  at  a distance  of  IHC  from  the  midpoint.  CASEIT  now 
returns  control  to  the  calling  routine.  See  Figure  IH-32  for  the 
processing  flow  diagram. 


f. 


IYR,  IHC). 


Calling  Sequence 

Call  CASEIT  (1X1,  IY1,  1X2,  IY2,  ID,  IXL,  IYL,  IXR, 


i- 


Major  Algorithms 


ID  - distance  (squared)  from  point  to 
point  P 2» 

IHC  - distance  from  point  P^  to  point  P^, 
also  distance  from  point  P^  to  point 
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IXL,  = IXM  - (IY2-IY1)-  (IHC./  ID) 

IYL  = IYM  - (IX1-IX2)  • (IHC  / ID) 

IXJR  = IXM  + (IY2-IY1 ) • (IHC  / ID) 

IYR  = IYM  + (IX1-IX2)  • (IHC  / ID) 

4.  Program  Constants  and  Variables 

IXM,  IYM  - coordinates  for  the  midpoint. 

5.  Error  Conditions 
None 
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I 

Arguments  | 
nput: 

1X1,  I Y1  -coordinates  of  | 

first  endpoint  i 

1X2,  I Y2 -coordinates  of 
second  endpoint 
ID  - distance  between  the  I 

endpoints 

IHC  - distance  from  the 

line  segment  I 

Output:  I 

IXL,  IYD-coordinates  of 
left  justified  point 
IXR,  IYR -coordinates  of  j 

right  justified  point 


Figure  III- 32  - CASEIT  Process  Flow 
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FF.  CPDIST 


1 . Functional  Description 

As  a subroutine,  CPDIST  deletes  the  second  point  of  two 
points  if  the  points  are  at  a distance  less  than  the  specified  minimum 
distance. 

2.  Computer  Definition 

a.  Core  Memory  Used 
44  octal  words. 

b.  Peripheral  Equipment 
None 


3.  Program  Description 


a.  Calling  Routines 
CASER 

b.  Subroutines  Used 
None 


c.  Input 

1X1,  IY1 
1X2,  IY2 
N 

MINRES 


coordinates  of  first  point, 
coordinates  of  second  point, 
index  of  the  second  point, 
minimum  resolution  (squared). 


d.  Output 

N - reduce  index  of  the  second  point 

to  equal  the  index  at  the  first  point. 

e.  Processing  Methodology 

As  a FORTRAN  subroutine,  CPDIST,  when  called,  will 
first  compute  the  distance  (squared)  between  the  two  points  which  are 
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received  from  the  calling  routine.  After  computing  the  distance  between 
the  two  points,  CPDIST  tests  this  distance  against  a minimum  distance 
(MINRES).  If  the  computed  distance  is  less  than  the  minimum  distance, 
the  index  of  the  second  point  is  decreased  by  one  to  suppress  the  second 
point.  See  Figure  HI-33  for  the  flow  diagram. 

f.  Calling  Sequence 

Call  CPDIST  (1X1,  IY1,  1X2,  IY2,  N,  MINRES). 

?•  Major  Algorithms 
None 

4*  Program  Constants  and  Variables 
None 

5 • Error  Conditions 
None 
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CPDIST 


Arguments 


1X1,  IY1  - coordinates  for 
the  first  point 
1X2,  IY2  - coordinates  for 
the  second  point 
IN  - index  of  the  second 
| point 

MINRES  - minimum  I 

l distance  (squared)  | 

between  two  points  | 


Compute  distant 
(square) between 
point  1 and 
I point  2 i 


^^domputecSy 
Instance  less 
'Nthan  minimi 
\dstacce/ 


Decrease  the 
index  of  the 
second  point  by 
one 


Figure  ffi-33  - CPDIST  Process  Flow 

(Page  1 of  1 ) 
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GG.  CASPOT 


1 . Functional  Description 

As  a FORTRAN  subroutine,  CASPOT,  determines  two  pairs 
of  rectangular  coordinate  points  on  perpendicular  lines  to  a line  segment 
through  each  of  its  end  points. 

2.  Computer  Definition 

a.  Core  Memory  Used 
232  octal  words 

b.  Peripheral  Equipment 
None 


3.  Program  Description 
a.  Calling  Routines 
CASER 


b.  Subroutines  Used 
None 


c.  Input 

1X1,  IY1 
1X2,  IY2 
IDVAL 
IHC 

d.  Output 
IXL1,  IYL1  - 

IXR1 , IYR1  - 


coordinates  of  the  first  endpoint. 

coordinates  of  the  second  endpoint. 

distance  between  the  endpoints. 

distance  from  endpoint  to  computed 
point. 


coordinates  of  the  left  justified  point 
from  the  first  endpoint. 

coordinates  of  the  right  justified 
point  from  the  first  endpoint. 
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IXL2,  IYL2  - 


1 


coordinates  of  the  left  justified 
point  from  the  second  endpoint. 


IXR2,  IYR2 


coordinates  of  the  right  justified 
point  from  the  second  endpoint. 


e. 


Processing  Methodology 

As  a FORTRAN  subroutine,  CASPOT,  when  called, 
will  first  compute  the  perpendicular  line  to  the  line  segment  defined  by 
the  two  endpoints  ( {1X1,  IY1),  (1X2,  IY2)  ) supplied  by  the  calling 
routine.  Next  CASPOT  proceeds  to  compute  the  left  and  right  justified  points 
at  each  of  the  endpoints.  After  computing  the  left  and  right  justified 
points,  CASPOT  returns  control  to  the  calling  routine.  See  Figure  HI-34 
for  the  processing  flow  diagram. 


f. 


Calling  Sequence 

Call  CASPOT  (1X1,  IY1,  1X2,  IY2,  IDVAL,  IXL1, 
IYL1 , IXR1 , IYRl,  IXL2,  1YL2,  IXR2,  IYR2,  IHC). 

g.  Major  Algorithms 

t^IXL2,  IYL2 


\ 


\ 


> 

<^IX2,  IY2 
X \ 

/ 

'IDVAL. 


\ 


\ 


bIXR2,  IYR2 


*IXL1,  IYL1 
\ 


/ 


/ 


\IXR1,  IYRl 
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X 

= 

(IX 1 -1X2)  IHC/IDVAL 

Y 

= 

(IY2-IY1)  IHC/IDVAL 

IXL.1 

= 

IX1-Y 

IYL1 

= 

IY1-X 

IXR1 

= 

1X1+ Y 

IYR1 

= 

IY1+X 

IXL2 

= 

1X2 -Y 

IYL2 

= 

IY2-X 

IXR2 

= 

1X2 +Y 

IYR2 

= 

IY2+X 

4.  Program  Constants  and  Variables 

X - perpendicular  distance  in  X direction. 

Y - perpendicular  distance  in  Y direction. 

5.  Error  Conditions 


None 


L 
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CASPOT 


Arguments 


Unput:  i 

jlXl,  IY1  -coordinates  of  1 

first  endpoint  1 

,1X2,  IY2 -coordinates  of 
i second  endpoint  1 

lIDVAL-distance  between  I 
j endpoints  j 

iIHC  - distance  from  endpoint( 
I to  generated  point 

' i 

Putput:  i 

| I 

(IXL1,  IYL.1 -coordinates  of  i 

• left  justified  at  first  ' 

* endpoint 

*1XR1,  IYR1  -coordinates  of 
j right  justified  at  first  [ 

t endpoint  | 

[IXL2,  IYL2 -coordinates  of  I 
j left  justified  at 

! second  endpoint 

(IXR2,  IYR2 -coordinates  of 
\ right  justified  at 

l second  endpoint  i 


Find 

perpendicular 


I Compute  left 
justified  point 
at  first  endpoint 


Compute  right 
justified  point 
at  first 
endpoint 


Compute  left 
justified  point 
at  second 
endpoint 


Compute  right 
justified  point 
at  second 
endpoint 


Return 


Figure  HI-34  - CASPOT  Process  Flow 


(Page  1 of  1 ) 
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HH.  ARROW 


1 . Functional  Description 

This  FORTRAN  subroutine  will  generate  the  rectangular 
coordinate  points  that  when  connected  will  represent  the  special  point 
symbols  arrow  or  half  arrow. 

2.  Computer  Definition 

a.  Core  Memory  Used 
1230  octal  words 

b.  Peripheral  Equipment 
None 

3.  Program  Description 

a.  Calling  Routines 
SIMBOL 

b.  Subroutines  Used 

SQRT 

SLOPE 

c.  Input 

Data  as  inputs  to  subroutine  ARRO'V'  are  received 
through  common  areas  C2  (feature  line  center),  C3  ‘.symbol  specification 
directives),  C5  (status  indicators,  flags  and  pointers),  and  C6  (parameters 
and  variables). 

d.  Output 

As  output,  rectangular  data  points  are  passed  in 
common  area  C2.  Also  outputs  are  status  indicators,  flags,  and 
tally  summary  report  data  in  common  areas  C5  and  respectively. 
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e.  Processing  Methodology 


When  called,  the  FORTRAN  subroutine  ARROW  will 
first  locate  the  center  point  at  which  the  special  point  symbol  of  an  arrow 

or  half  arrow  is  to  be  generated  and  set  the  appropriate  flags 
for  output.  Using  the  size  (ISYSZ  (ISYDEX)  ) and  whether  confonrnal  or 
none onf o r mal  (ICONON  (ISYDEX)  = 0 or  1),  ARROW  will  compute  the 
difference  along  the  x axis  and  y axis  where  the  generated  points  will 
be  located  from  the  center  point.  ARROW  proceeds  now  to  determine 
if  an  arrow  or  half  arrow  is  to  be  generated  by  interrogating  ISYTP 
(ISYDEX).  Next  the  coordinate  values  are  computed  and  entered  into 
the  IXYZ  buffer  in  the  common  area  C2.  After  the  indicator 
and  flags  for  output  are  set,  control  is  returned  to  the  calling  routine. 
Refer  to  Figure  III -35!  for  the  process  flow  diagram  of  ARROW. 


f.  Calling  Sequence 
CALL  ARROW 


IX,  IY 


length  of  arrow 

center  point  at  which  arrow  is 
to  be  generated 

D • sin  45p  = D*  (0.70711) 
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s 

Ml 

M2 

At  beginning  of  line 
Nonconformal: 

1X1  = IX  - IH 
IY1  = IY  + IH 

1X2  = IX  - IH 
IY2  = IY  - IH 


interpreted  slope 

dH//r+'(s-5D  • (i-s) 

(IH//1  + (S*  sj  ) - (1+S) 

At  end  of  line 

1X1  = IX  + IH 
IY1  = IY  + IH 

1X2  = IX  + IH 
IY2  = IY  - IH 


Conformal: 

1X1  = IX  - M2  1X1  = IX  + Ml 

IY1  = IY  - Ml  IY1  = IY  + M2 


1X2  = IX  + Ml  1X2  = IX  + M2 

IY2  = IY  - M2  IY2  = IY  - Ml 


Note:  Half  arrow  requires  only  one  point  from  the 
above. 


4. 


Program  Constants  and  Variables 

■ i V ■■  .1  i ■■  ■ — ^ 


ICURDX 

IPTDX(ICURDX)  - 
ICORDX(ICUJRDX)- 
ISYTP(ISYDEX)  - 

ICONON(ISYDEX)  - 
ISYSZ  (ISYDEX)  - 
IXYZ(I.J) 

IX,  IY 
0.70711 
NUMPTS(l) 
ICURDX 


Current  buffer  pointer. 

Current  point  pointer. 

Current  starting  index  pointer. 

Symbol  type  (=10  arrow;  =11 
half  arrow). 

Conformal  - Nonconformal  data. 
Symbol  size. 

X,  Y value  along  with  distance. 
Center  pointer. 

Sin  45" 

Number  of  points  in  buffer  I. 
Current  buffer  pointer. 
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ISYJRDY 

IH 

Ml  and  M2 
S 

Error  Conditions 


Symbol  ready  for  output  flag. 

Distance  along  X and  Y axis  for 
nonconformal  arrow. 

Distance  along  axis  for  conformal 
arrow. 

Interrogated  slope. 


None 


w 


✓"halt  arrows 
'to  be  right 
s'v  justified?. 


Set  status  flags, 
indicators,  and 
pointers  to 
output  arrow 


Find  coordinates 
for  left  justified 
half  arrow 


Return 


Find  coordinates 
for  right 
justified  coa- 
formal  half 
arrow 


Figure  IH-35  - ARROW  Process  Flow 

(Page  4 of  4) 
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II. 


SLOPE 


1 . Functional  Description 

This  subroutine,  SLOPE,  will  determine  an  approximate 
slope  about  a given  point  in  a data  list. 

2.  Computer  Definition 

a.  Core  Memory  Used 


As  a FORTRAN  subroutine,  SLOPE  first  calls  the 
subroutine  POINTS  to  determine  two  x,  y coordinate  points  (numeric 
names  1X1 , IY1,  1X2,  IY2)  from  which  an  approximated  slope  is  calculated 
(see  the  description  of  POINTS).  From  the  two  coordinate  points 
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generated  by  POINTS,  SLOPE  finds  the  difference  in  the  x coordinates 
and  tests  this  difference  against  zero  (i.e.  test  if  slope  is  parallele^- 
with  the  y axis).  If  the  difference  in  the  x coordinate  is  zero,  SLOPE 
sets  the  slope(s)  equal  to  1 . OE  + 31  and  control  is  returned  to  the  calling 
routine.  If  the  diffe  ence  in  the  x coordinates  is  not  zero,  SLOPE 
proceeds  in  computing  the  approximate  slope  (numeric  name  S)  by 
determining  the  difference  of  the  y coordinates  over  the  difference  of 
the  x coordinate.  See  Figure  III-  36  for  processing  flow  diagram. 

f.  Calling  Sequence 
Call  SLOPE  (S) 

g.  Major  Algorithms 
None 

4.  Program  Constants  and  Variables 

None 

5.  Error  Conditions 


None 


Figure  III- 36  SLOPr,  Process  Flow  (Page  1 of  2) 
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9 


Set  SLOPE 
equal  to 
1.  OE+31 


(S  = 1.0E  + 31) 


Figure  in- 36  SLOPE  Process  Flow  (Page  2 of  2) 
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JJ. 


CROSS 


( 

I 


1 • Functional  Description 

As  a FORTRAN  subroutine,  CROSS  computes  two 
rectangualr  coordinate  points  which  define  a cross. 

Computer  Definition 
2.  Core  Memory  Used 

417  octal  words, 
k-  Peripheral  Equipment 

None 

3*  Program  Description 
*i.  Calling  Routines 


pairs  of 


SIMBOL 


b.  Subroutines  Used 

SORT 

SLOPE 

c.  Input 


Inputs  to  subroutine  CROSS  consist  of  data 
contained  in  common  areas  C2  (feature  line  center  data),  C3 
(symbol  specifications  directives),  C5  (status  indicators  flags  and 
pointers),  and  C6  (parameters  and  variables). 


d.  Output 

Output  will  consist  of  four  coordinate  data  points 
in  commo^  area  C2,  and  also  consist  of  status  indicator  flags  and  tally 
summary  report  data  in  common  area  C5  and  C7  respectively. 
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ISYSZ 
IX,  IY 


N one  oruormal: 
IALPHA 
IBETA 

Conformal: 

IALPHA 

IBETA 

1X1 

IY1 

1X2 

IY2 

1X3 

IY3 

1X4 

IY4 


Size  of  cross. 

Center  point  about  which  the  cross 
is  to  be  drawn. 

Slope. 

1/2  {0.  70711  • ISYSZ) 

1/2  {0.70711  • ISYZ) 

1/2  ISYSZ-  0.70711*  (1.0+S2f1/2(1.0-S) 
1/2  ISYSZ*  0.70711-  (1.0+S2)"1/2(1.0+S) 

IX  + IALPHA 
IY  4 IBETA 

IX  - L4LPHA 
IY  - IBETA 

IX  - IBETA 
IY  + LA.LPHA 

IX  + IBETA 
IY  - IALPHA 


4. 


Program  Constants  and  Variables 


IALPHA  . _ 

IBETA 

ICLLBK 

ICON  CON  (LS  YDEX)- 

ICORDX 

1CUJRDX 

IPTDXfCURDX)  - 


Directional  distance  in  X direction. 

Directional  distance  in  Y direction. 

Cross  call  back  flag. 

Flag  for  conformal  or  noncon- 
formal  symbol. 

Array  containing  the  beginning 
index  for  the  five  buffers  in  IXYZ. 

Current  buffer  pointer. 

Pointer  to  the  current  point  in 
the  IXYZ  buffer. 
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ISPDST 

ISYDEX 

ISYRDY 

ISYTP(ISYDEX) 

ITELRN 

IX 

IY 

IX  YZ 


JCALL. 

NUMCBK 

NUMCRS 

NUMPTS 

S 

Error  Conditions 
None 


Distance  to  approximate  slope. 

Index  into  the  symbol  spec 
directives. 

Symbol  piece  ready  for  output 
flag. 

Size  of  symbol. 

At  the  end  of  data  points  flag. 

X coordinate  for  center  point. 

Y coordinate  for  center  point. 

Two-dimensional  array  containing 
X,  Y coordinate  points  with 
distance  between  two  successive 
points. 

Internal  flag  denoting  whether  to 
output  second  side  or  generate 
the  cross. 

Number  of  call  back  flags. 

Number  of  crosses  generated. 
Number  of  points  per  buffer. 
Approximate  slope. 
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CROSS 


^^control  > 
Returned  to 
S\output  the 


Determine 
center 
point 
(IX.  IY) 


cross  to 
be  conformalr 


T Yes 


Set  pointers, 
flags,  and 
counters  to 
output  one 
side 


Return  j 

Figure  III- 37  CROSS  Process  Flow  (Page  1 of  2) 
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Determine 
ALPHA  and 
BETA  for 
nonconfo  rmal 
cross 


ure  III -3  7 - CKOSS  Process  Flow  (Page  2 of  Z) 
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KK.  SQUARE 


1 • Functional  Description 

As  a FORTRAN  subroutine,  SQUARE  computes  four  rectangular 
coordinate  points,  such  that  when  connected,  defines  a square. 

2.  Computer  Definition 

a.  Core  Memory  Used 
314  octal  words. 

b.  Peripheral  Equipment 
None. 

3.  Program  Description 

a.  Calling  Routines 
SIMBOL 

b.  Subroutines  Used 

SLOPE 

SQRT 

c.  Input 

Inputs  to  subroutine  SQUARE  consist  of  data  contained  in 
common  areas  C2  (feature  line  center  data),  C3  (symbol  specifications 
directives),  C5  (status  indicator  flags  and  pointers),  and  C6  (parameters  and 
variables. 

d.  Output 

Output  will  consist  of  four  coordinate  data  points  in  com- 

mon area  C2,  and  also  consists  of  status  indicator  flags  in  common  area 
C5. 

e.  Processing  Methodology 

When  called  upon,  the  subroutine  SQUARE  will  first  de- 
termine the  center  point  in  the  IXYZ  buffer  about  which  the  coordinate  points 
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for  the  square  will  be  computed.  Then  SQUARE  determines  the  size  of  the 
square  and  whether  the  square  is  to  be  conformal  or  nonconformal  by  in- 
terrogating ISYSZ  and  ICONON,  respectively  (contained  in  common  area 
C3).  Then  the  slope  (S),  CHI,  and  CHI1  are  determined  (see  Al- 
gorithms). Using  CHI  and  CHI1,  SQUARE  computes  the  four  coordinate 
points  which  are  stored  in  the  third  section  of  buffer  IXYZ.  SQUARE  now 
sets  the  appropriate  status  flags  and  indicators  to  output  the  coordinate 
points  for  the  symbol  piece  square. 

f.  Calling  Sequence 
CALL  SQUARE 


g.  Major  Algorithms 
(1X2, 1X2), 


I 


I 

n! 

wi 

!l 


(X,Y) 


(IX1.IY1) 


(1X3,  IY3 )! 


(1X4,  IY4) 


ISYSZ  Size  of  square 

(X.Y) 


Center  point  about  which  the  square  is  to  be  gen- 
erated. 

slope,  for  a nonconformal  square  slope  equals 
zero. 


For  conformal  square: 


CHI  = ISYSZ -(1.  0+5).  (1.  0+5*5)"* 
CHI1  = i*ISYSZ*(1.0-5)*(1.0+5-5)"2 
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For  nonconformal  square: 

CHI  = ISYSZ/2 
CHI1  = CHI 


I 


1X1  = X + CHI1 

ryi  = y + chi 

1X2  = X-CHI 
IY2  = Y + CHI1 

1X3  = X - CHI1 
IY3  = Y-  CHI 

1X4  = X + CHI 
IY4  = Y-CHI1 


Program  Constants  and  Variables 


CHI 

CHI1 

ICONCON-(ISYDEX) 

ICONDX 

ICURDX 

IFTDX(ICURDX) 

E5YDEX 

ISYRDY 

ISYSZ(ISYDEX) 

IX  YZ 

NUMPTS 

S 

X 
Y 


Directional  distance  in  positive. 

Directional  distance  in  negative. 

Flag  for  conformal  or  nonconformal  symbol. 

Array  containing  the  beginning  index  for  the 
five  buffers  in  IXYZ. 

Current  buffer  pointer. 

Pointer  to  the  current  point  in  the  IXYZ 
buffer. 

Index  into  the  symbol  specifications  directives. 
Symbol  piece  ready  for  output  flag. 

Size  of  symbol. 

Two  dimensional  array  containing  X,  Y 
coordinate  points  with  distance  between  two 
successive  points. 

Number  of  points  per  buffer. 

Approximate  slope. 

X coordinate  for  center  point. 

Y coordinate  for  center  point. 
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CALL 
SLOPE  (S) 


Determine  CHI 
and  CHI1  for 
conformal 
square 


Figure  HI-38 -SQUARE  Process  Flow  (Page  1 of  2) 
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When  called  upon,  the  subroutine  TRNGLE  will  first  de- 
termine the  center  point  in  the  IXYZ  buffer  about  which  the  coordinate 
points  for  the  triangle  will  be  computed.  Then  TRNGLE  determines  the 
size  of  the  triangle  and  whether  the  triangle  is  to  be  conformal  or  non- 
conformal  by  interrogating  ISYSZ  and  ICONON,  respectively  (contained  in 
common  area  C3).  Then  BETA  and  the  slope  (S)  are  determined 
(see  algorithms).  Using  BETA  and  S,  TRNGLE  computes  the  three 
coordinate  data  points  while  placing  the  points  in  the  third  section  of  buffer 
IXYZ.  TRNGLE  also  stores  the  first  computed  point  in  the  fourth  location 
of  the  third  section  of  IXYZ  buffer  to  complete  the  triangle.  TRNGLE  now 
sets  the  appropriate  status  flags  and  indicators  to  output  the  coordinate 
points  for  the  triangle. 

f.  Calling  Sequence 
CALL  TRNGLE 


Major  Algorithms 


IXl,  IY 1 


1X2,  IY2 


nM  | 


oo  ^ j 

| t <X,Y) 


1X3,  IY3 


i, 
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ESYSZ 

Size  of  triangle 

X,  Y 

Center  point  about  which  the  triangle 
be  drawn. 

S 

Slope  (for  a nonconformal  set  S=0.  0 
(1.0  + S’S)‘* 

SL 

BETA 

ISYSZ/2.  0 

HEIGHT 

COS  (30°)*ISYSZ  = 0.8660255.  ISYSZ 

Dtl  = 

X-SL’(§|”  HEIGHT-S) 

IY1  = 

Y+SL-(||-  HEIGHT) 

1X2  = 

X+SL-  (||*  HEIGHT  ’S-BETA) 

IY2  = 

Y-SL’  (BETA’S  + ||  ’ HEIGHT) 

IX  3 = 

X+SL’  (BETA  + ||  • HEIGHT  * S) 

IY3  = 

Y+SL*  (BETA'S  - ||  * HEIGHT) 

NUMPTS 

Number  of  points  per  buffer. 

S 

Approximate  slope. 

X 

X coordinate  for  center  point. 

Y 

Y coordinate  for  center  point 

4.  Program  Constants  and  Variables 


ALPHA 

BETA 

ICONCON-(ISYDEX) 

ICONDX 

ICURDX 

IPTDX(ICURDX) 

ISYDEX 

ISYRDY 

ISYSX(ISYDEX) 

IXYZ 


COSINE  of  30  degrees. 

Directional  distance. 

Flag  for  conformal  or  nonconformal  symbol. 

Array  containing  the  beginning  index  for  the 
five  buffers  in  IXYZ. 

Current  buffer  pointer. 

Pointer  to  the  current  point  in  the  IXYZ 
buffer. 

Index  into  the  symbol  specifications  directives. 
Symbol  piece  ready  for  output  flag. 

Size  of  symbol. 

Two  dimensional  array  containing  X,  Y 
coordinate  points  with  distance  between  two 
successive  points. 
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MM.  PYRMID 


1.  Functional  Description 

As  a FORTRAN  subroutine,  PYRMID  computes  three  distinct 
coordinate  data  points,  such  that  when  connected,  defines  a pyramid. 

2.  Computer  Definition 

a.  Core  Memory  Used 
260  octal  words. 

b.  Peripheral  Equipment 
None. 

3.  Program  Description 

a.  Calling  Routine 
SIMBOL 

b.  Subroutines  Used 

SLOPE 

SORT 

c.  Input 

Inputs  to  subroutine  PYRMID  consist  of  data  contained  in 
common  areas  C2  (feature  line  center  data),  C3  (symbol  specifica- 
tions directives),  C5  (status  indicator  flags  and  pointers),  and  C6  (param- 
eters and  variables). 

d.  Output 

Output  will  consist  of  four  coordinate  data  points  in  com- 
mon area  C2,  and  also  output  will  consist  of  status  indicator  flags  in  com- 
mon area  C5. 

e.  Processing  Methodology 

When  called  upon,  the  subroutine  PYRMID  will  first  de- 
termine the  center  point  in  the  IXYZ  buffer  about  which  the  coordinate  points 
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for  the  pyramid  will  be  computed.  Then  PYRMID  determines  the  size  of 
the  pyramid  and  whether  the  pyramid  is  to  be  conformal  or  nonconformal  by 
interrogating  ISYSZ  and  ICONON,  respectively  (contained  in  common  area 
C3).  Then  BETA  and  the  slope  (S)  are  determined  (see  algorithms). 

Using  BETA  and  S,  PYRMID  computes  the  three  coordinate  points  which 
are  placed  in  the  third  section  of  buffer  IXYZ.  PYRMID  now  sets  the  ap- 
propriate status  flags  and  indicators  to  output  the  coordinate  points  for  the 
symbol  piece  pyramid. 


f. 


Calling  Sequence 


CALL  TRNGLE 
g.  Major  Algorithms 


IXYXZ 

X,Y 

ALPHA 

S 


For  Conformal,  BETA  = j 


Size  of  pyramid. 

Center  point  about  which  the  pyramid  is  to  be 
drawn. 

COS(30°)  = 0.  8660255 

Slope,  for  nonconformal  pyramid  slope  equals 
zero. 

ISYSZ  • (1  + S -S)-* 


For  Nonconformal,  BETA  = jm  ISYSZ 


Cl  = BETA'S 

C2  = 2.0*  BETA  * ALPHA 
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IX 1 = X-BETA 
IY1  = Y-Cl 

1X2  = X-C2-S 
IY2 = Y+C2 

1X3  = X+BETA 
IY3  = Y+CI 

4.  Program  Constants  and  Variables 


ALPHA 

COSINE  of  30  degrees. 

BETA 

Directional  distance. 

ICONCON-(ISYDEX) 

Flag  for  conformal  or  nonconformal 
symbol. 

ICONDX 

Array  containing  the  beginning  index 

for  the  five  buffers  in  IXYZ. 

• 

ICURDX 

Current  buffer  pointers. 

IPTDX(ICURDX) 

Pointer  to  the  current  point  in  the  IXYZ 
buffer. 

ISYDEX 

Index  into  the  symbol  specification 
directives. 

ISYRDY 

Symbol  piece  ready  for  output  flag. 

ISYSZ(  ISYDEX) 

Size  of  symbol. 

IX  YZ 

Two  dimensional  array  containing  X,  Y 
coordinate  points  with  distance  between 
two  successive  points. 

NUMPTS 

Number  of  points  per  buffer. 

S • 

Approximate  slope. 

X 

X coordinate  for  center  point. 

Y 

Y coordinate  for  center  point. 

5.  Error  Conditions 
None. 
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Figure  HI-40  - PYRMID  Process  Flow  (Page  2 of  2) 


HI-280 


As  a FORTRAN  subroutine , ARCORD  computes  coordinate 
points,  such  that  the  symbol  pieces  of  a cord  and  an  arc  are  produced. 

2.  Computer  Definition 

a.  Core  Memory  Used 
51 1 octal  words. 

b.  Peripheral  Equipment 
None. 

3.  Program  Description 

a.  Calling  Routines 
SIMBOL. 

b.  Subroutines  Used 

SIN 

COS 

ATAN 

SQRT 

c.  Input 

Inputs  to  subroutine  ARCORD  consist  of  data  contained  in 
common  areas  C2  (feature  line  center  data),  C3  (symbol  specifica- 
tions directives),  C5  (status  indicator  flags  and  pointers),  and  C6  (param- 
eters and  variables). 

\ d.  Output 

Output  consists  of  coordinate  data  points  which  define 
the  symbol  pieces  of  an  arc  and  a cord,  and  also  consist  of  status  indicator 
flags  in  common  area  C5. 
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Processing  Methodology 

When  called  upon,  the  subroutine  ARCORD  will  first  de- 
termine if  the  symbol  piece  cord  has  been  generated  and  output  by  inter- 
rogating the  internal  flag  IFLAG.  If  the  cord  has  not  been  generated  and 
output  (IFLAG=1),  ARCORD  will  proceed  with  determining  the  center  point 
(X,Y)  for  the  cord  and  arc.  Then  the  symbol  directives  are  searched  for 
the  existence  of  the  symbol  cross.  If  a cross  is  not  found,  ARCORD  returns 
control  to  the  calling  routine  with  an  error  message.  If  a cross  is  found, 
ARCORD  uses  the  given  size  of  the  cross  to  determine  the  radius  for  both 
the  cord  and  the  arc.  ARCORD  will  determine  the  two  coordinate  points 
(see  algorithms)  for  the  cord.  After  determining  the  coordinate  points  for 
the  cord,  ARCORD  sets  the  appropriate  status  flags  and  indicators  to  output 
the  cord.  ARCORD  will  return  control  to  the  calling  routine  to  output  the 
cord,  but  ARCORD  will  request  that  control  be  returned  so  that  the  arc  will 
be  generated. 

When  control  is  returned,  ARCORD  proceeds  with  gen- 
erating the  arc.  First  the  number  of  data  points  (NF)  for  the  arc  is  cal- 
culated. Then  ARCORD  will  compute  the  data  points  sequentially  (see 
algorithms)  while  storing  them  in  the  third  section  of  buffer  IXYZ.  After 
completing  the  arc,  ARCORD  sets  the  appropriate  indicator  and  status  flags 
to  output  the  arc.  Control  now  is  returned  to  the  calling  routine. 

f.  Calling  Sequence 
CALL  ARCORD 


ni-282 


For  cord  - line  from  point  (XI,  Yl)  to  (1X2,  IY2) 

XI  = X - Radius  • SIN(20o) 

Yl  = Y + Radius  • COS (20°) 

X2  = X - Radius  • SIN(70°) 

Y2  = Y + Radius  • COS  (70°) 
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ALPHA 

Cl 


For  arc  - curve  from  point  (IX1,IY1)  to  IXN,  IYN) 


Increment  in  radians  around  arc. 

Value  in  radians  at  the  DC  increment 
(=  I- ALPHA  + 10°  in  radians). 

NP  number  of  data  points  in  arc  = integer 

(70° /ALPHA)  + 1. 

1=1,  NP 

IXI  = X+Radius  • COS  (Cl) 

IYI  = Y+Radius  • SIN  (Cl) 

(Refer  to  subroutine  CIRCLE). 

4.  Program  Constants  and  Variables 


Cl 

Angular  distance  for  arc  and  cord. 

C2 

Angular  distance  for  cord. 

C20S70 

Cosine  of  20°  and  sine  of  70°  (=0.342020143) 

COS  10 

Cosine  of  10°  (=  0.984807753) 

DELTA 

Distance  between  two  successive  points 
in  arc. 

ICORDX 

Array  containing  the  beginning  index  for 
the  five  buffers  of  IXYZ. 

ICURDX 

Current  buffer  pointer. 

IF  LAG 

Internal  flag  to  generate  the  cord  (if 
IFLAG=1)  or  to  generate  the  arc  (if 
IFLAG=2). 

IPECLK 

Symbol  piece  call  back  flag. 

IPTDX(ICURDX) 

Index  into  the  current  point  in  the 
EXYZ  buffer. 

ISYDEX 

Index  into  the  symbol  specifications 
directives. 

ISYRDY 

Symbol  piece  ready  for  output  flag. 

ISYSZ 

Size  of  symbol  array. 

ISYTP 

Array  containing  symbol  piece  type. 

ITXERR 

Error  message  buffer. 
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IX  YZ 

Two  dimensional  array  containing  X,Y 
coordinate  points  with  distance  between 
two  successive  points. 

NP 

Number  of  points  contained  in  arc. 

NUMCBK 

Number  of  symbol  piece  call  back. 

NUMPTS 

Number  of  points  per  buffer. 

RADIUS 

Radius  for  the  symbol  pieces  arc  and 
cord. 

S20C70 

Sine  of  20°  and  cosine  of  70° 
(=  0.93969262). 

SEVENTY 

70°  in  radians  ( = 1.22173051). 

SINIO 

Sine  10°  (=0. 1736481). 

TEN 

Ten  degrees  in  radians  (=0.  174532930). 

X 

X coordinate  for  center  point. 

Y 

Y coordinate  for  center  point. 

5.  Error  Conditions 

ARCORD  will  set  the  error  flag  and  enter  the  following  message 
into  the  error  text  location  (ITXERR)  if  the  symbol  cross  was  not  located 
or  not  found  in  the  symbol  specifications  directives. 

A cross  was  not  found  to  associate  with  ARCORD. 


A 


F 


Inputs  and  out- 
puts  are  passed 
through  the  com* 
imon  blocks: 

C2 
1 C3 
I C5 
C6 


Figure  III-41  - ARCORD  Process 


Flow  (Page  1 of  3) 


N N 


RETURN 


RETURN 


Figure  III -41  - ARCORD  Process  Flow  (Page  2 of  3) 
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Figure  111-41  - ARCORD  Process  Flow  (Page  3 of  3) 
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OO.  LINUP 


1.  Functional  Description 

LINUP  Formats  and  prints  out  on  the  system  line  printer 

pertinent  information  about  the  job  control  parameters  files  processed 

and  symbology  generated. 

A 

2.  Computer  Definition 

a.  Core  Memory 
3054  octal  words 

b.  Peripheral  Equipment 
System  Line  Printer 

3.  Program  Description 
a.  Calling  Routines 

MONITR 

Subroutines  Used 


b. 


c. 


d. 


f. 


None 

Input 

Common  area  (Process  - Tally  - Summary  - Report) 

Output 

Line  printer  reports 
Processing  Methodology 

LINUP  is  called  when  the  symbolization  processing  is 
completed.  Pertinent  job  control  and  processing  information 
is  maintained  in  common  areas.  LINUP  simply  retrieves 
the  required  information  from  the  common  area  formats  the 
data,  and  prints  out  the  data  on  the  system  line  printer. 

Calling  Sequence 

CALL  LINUP 
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Major  Algorithms 


None 

4.  Program  Constants  and  Variables 

Display  format  words 

COUNT2  - tally  of  symbol  pieces 

5.  Error  Conditions 
None 
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PP.  SPEC 


1.  Functional  Description 

The  function  of  the  SPEC  routine  is  to  build/update  symbol 
directive  specification  data  files  for  a Graphic  Line  Symbolization 
System  (GLSS)  processing  run.  It  is  an  independent  routine  of  GLSS 
and  is  executed  separately  from  other  GLSS  programs. 

2.  Computer  Definition 

a.  Core  Memory  Used 
2157  octal  words 

b.  Peripheral  Equipment 

The  peripheral  equipment  consists  of  a card  reader 
and  two  permanent  data  files  containing  symbol  specification  data.  File 
code  (08)  is  a sequential  file  containing  feature  descriptor  code  data. 

File  code  (02)  is  a direct  access  file  containing  feature  symbol  piece 
directive  information. 

3.  Program  Description 

a.  Calling  Routines 
None. 

b.  Subroutines  Used 
None. 

c.  Input 

Input  to  the  SPEC  routine  consists  of  user  supplied 
build/upd-ite  symbol  specification  control  and  data  cards.  The  control  data 
card  (card  number  1)  defines  the  activity  to  be  executed  (build  new 
specification  files  or  update  existing  files).  The  symbol  specification  data 


HI-291 


cards  consist  of  feature  descriptor  codes,  color  separation  sheet  numbers, 
symbol  conformal  - non-conformal  information,  symbol  piece  types, 
symbol  piece  sizes,  and  symbol  piece  line  weights.  See  Volume  I 
for  the  sequence  and  format  of  the  data  cards. 

d.  Output 

The  output  from  SPEC  consists  of  two  permanent 
data  symbol  specification  files.  The  first  file  (file  code  08)  contains 
feature  descriptor  codes,  stored  on  a permanent  sequential  data  file. 

The  second  file  (file  code  02)  consists  of  symbol  piece  specifications 
data  stored  on  a permanent  direct  access  data  file.  Figures  HI-43 
and  IH-44  depict  the  two  output  files  mentioned  above. 

e.  Processing  Methodology 

The  SPEC  routine  processing  flow  is  depicted  in 
Figure  HI-42.  Upon  entry  the  routine  is  initialized  and  the  first  user 
generated  control  card  is  read.  In  this  card,  the  user  wiU  have  speci- 
fied the  date  (menmonic  name  IDATE1  and  IDATE2)  and  one  of  the  two 
functions  of  the  SPEC  (mnemonic  name  IMODE).  The  functions  consist 
of  one  build  mode  (build  new  symbol  specification  files)  or  two,  update 
mode  (update  existing  symbol  specification  files).  These  above  controls 
serve  as  a guide  to  the  software  for  the  reading,  formatting  and  storing 
of  the  symbol  specification  data  cards  that  follow.  If  the  function  is 
to  build  new  specification  files,  a random  logical  record  sequence 
number  is  calculated  which  is  used  for  storage  of  the  symbol  specifi- 
cation for  that  feature.  If  the  function  is  to  update  existing  specifi- 
cation files,  the  random  logical  record  sequence  number  to  update  is 
read  from  the  next  control  card.  The  following  processing,  done  in 
either  mode,  is  to  read  symbol  specification  data  cards  containing 
feature  descriptor  codes  (menmonic  names  ICODE1,  ICODE2,  and 
ICODE3),  color  separation  sheet  numbers  (mnemonic  names 
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ISTNOl  and  ISTN02),  feature  conformal  information  (mnemonic  name 
ICON),  symbol  piece  types  (mnemonic  name  ITYPE),  symbol  piece 
size  (mnemonic  name  SIZE),  and  symbol  piece  line  weights  (mnemonic 
name  SYLWT).  See  Figure  III-45  for  the  symbol  piece  type  and  numeric 
equivalence.  They  are  then  stored  in  their  respective  buffer  areas  with 
a line  printer  listing  being  generated.  The  above  data  cards  are  read 
until  an  end  of  symbol  specification  indication  for  that  particular  feature 
descriptor  is  detected.  When  this  occurs,  the  random  record  sequence 
number  input  (mnemonic  name  IRWD),  under  update  mode  or  generated 
under  build  mode  (mnemonic  name  ER)  is  used  as  the  random 
sequence  storage  pointer  to  write  the  symbol  specifications  to  storage 
(permanent  random  file,  file  code  02).  The  overall  process  is  repeated 
until  an  end  of  control  card  is  detected  (end  of  file  on  file  code  05). 

When  this  occurs,  the  feature  descriptor  code  buffer  (mnemonic  name 
IDESP)  is  output  to  a permanent  sequential  file  (file  code  08). 

f.  Calling  Sequence 
Not  applicable 

g.  Major  Algorithms 
None 


4.  Program  Constants  and  Variables 
None 


5. 


Error  Conditions 


None 


' 


HI-294 


UPDATE 


/Store  symbol  / 
/specification 
on  random  f iley  \ 


store  no.  ofl 


/Read  descriptor/ 
/code  from  / 
/sequential  file/ 

I code  08  / 


Figure  111-42-  SPEC  Process  Flow  (page  z of  4) 
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Figure  HI-43  - Feature  Descriptor  Codes 
Stored  Sequential  Via 
Direct  Access 
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Figure  111-44  - Symbol  Piece  Specification  Record  Stored 
Randomly  Via  Direct  Access  File 
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I 

I 


Symbol  Piece  Type 


I 


Symbol  Piece 
Number  Assigned 


LINE 

1 

DASH 

2 

SPACE 

3 

DOT 

i 

4 

CIRCLE 

5 

TICK 

6 

HTICK 

7 

AHTICK 

8 

CASE 

9 

ARROW 

10 

HARROW 

11 

CROSS 

12 

SQUARE 

13 

TRNGLE 

14 

PYRMID 

15 

ARCORD 

1 

!—  - 

16 

Half  tick 

Alternating 
Half  tick 


T riangle 

Pyramid 
Arc  and  Cord 


Figure  111-4  5 - Symbol  Piece  Type 
Equivalance 
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QQ.  HEADSUM 


1.  Functional  Description 

This  routine  uses  REDREC  and  FORHED  for  reading  and  formating 
a LIS  Table  File.  A printout  is  then  generated  which  lists  all  headers  and 
totals  of  their  associated  data  points. 

2.  Computer  Definition 

a.  Core  Memory  Used 
121  octal  words 

b.  Peripheral  Equipment 
Line  printer 

3.  Program  Description 

a.  Calling  Routines 
None 

b.  Subroutines  Used 

REDREC 

FORHED 

c.  Input 

LIS  Table  File 

d.  Output 

Printout  of  Rle  information. 

e.  Processing  Methodology 

HEADSUM  calls  REDREC  for  reading  and  inputing  of  all 
LIS  records.  FORHED  is  called  to  format  headers  prior 
printing  out  the  feature  class,  type,  subtype,  descriptors 
and  number  of  points  representing  the  feature. 

f.  Calling  Sequence 
Not  applicable. 
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g- 


Major  Algorithms 


None 

4.  Program  Constants  and  Variables 

MI  - internal  flag 

NPTSI  - tally  of  data  points 

NCNT  - feature  sequence  counter 

5.  Error  Conditions 
None 
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Record  No.  1 1 
File  No.  1 

End  of  file 
Record  No.  1 
of  File  No.  2 


Record  No.  2 
Record  No.  3! 


Record  No.  4 
Record  No.  5 
Record  No.  6l 


Record  No.N| 

Record  No. 

N + 1 

Record  No. 

N + 2 


Record  No. 
N + M 


r 


Record  No.  • 
N + M + 1 


End  of  File 
End  of  file 


Tape  header  record 


End  of  file  (EOF) 


Record  type  0 


Record  type  20 


Record  type  20 


Record  type  20 


Record  type  30 
Feature  header  No.  1 


Record  type  31 
Feature  data  record  No.  1 


No.  2 


No.  N 


Record  t 
Feature 


e 30 

ader  No.  2 


Record  type  31 
Feature  data  record  No.  1 


Record  type  90 


End  of  file 
EOF 


End  of  file 
EOF 


L.I.  S.  Magnetic  Tape  Layout 
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10  111?.  I3H  15  16.L7-J8-19  7-0*1  % 23  PA  i 


.Record  Type  0 HIS  Word  4 (PDP-15  Word  9) 
Contains  Type  of  Coordinates 


Record  Type  30  I-IIS  Words  1-11  (PDP-15  Words  1-25 


Word  82  I : Word  83 IWord  84 


Record  Typo  30  IIIS  Words  36-40  (PDP-I5  Words  30-108) 


1 


1 

APPENDIX  in 


MMS-32  WORD  FILE  FORMAT  FOR  DMAAC 
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HEADER  RECORD  FORMAT 


Word 


Contents 


1-4 

5 

6 

7 

8 
9 

10-24 

25 

26 

27 

28 

29 

30 

31 

32 


Zero 

Record  content,  bits  5-0  (octal  34) 
Feature  code  bits  11-0  (fieldata) 

Symbol  piece  line  weight  bits  5-0 
Zero 

Special  Numerics  (fieldata) 

Zero 

Minimum  X value  of  bounding  rectangle 
Minimum  Y value  of  bounding  rectangle 
Maximum  X value  of  bounding  rectangle 
Maximum  Y value  of  bounding  rectangle 
First  X value  of  feature 
First  Y value  of  feature 
Last  X value  of  feature 
Last  Y value  of  feature 


DATA  RECORD  FORMAT 

Word  Contents 

1 In  bits  25-20  the  number  of  meaningful 

words  in  record. 

2 Absolute  points  in  bits  35 -2 L 

3-32  Data  points  of  the  feature  (15  pairs  of  X,  Y 

coordinates  Honeywell  6000  floating  point 
numbers). 
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Physical  Recori 


oeo 

MISSION 

of 

Rome  Air  Development  Center 


RAX  plana  and  conducts  research , exploratory  and  advanced 
development  program  in  command,  control,  and  communications 
(C3)  activities,  and  in  the  C3  areas  of  information  sciences 
and  intelligence.  The  principal  technical  mission  areas 
are  communications,  electromagnetic  guidance  and  control, 
surveillance  of  ground  and  aerospace  objects,  intelligence 
data  collection  and  handling,  lnfotmtion  system  technology, 
ionospheric  propagation,  solid  state  sciences,  micromave 
physics  and  electronic  reliability,  maintainability  and 
compatibility . 


I 


